(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     98859,       2070]
NotebookOptionsPosition[     93491,       1877]
NotebookOutlinePosition[     94109,       1901]
CellTagsIndexPosition[     94029,       1896]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/CoherentClusterEvolution", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["CoherentClusterEvolution", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"CoherentClusterEvolution", "[", 
   RowBox[{"nspin_", ",", "coord_", ",", 
    RowBox[{"{", 
     RowBox[{"trans1_", ",", "trans2_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"b_", ",", "theta_", ",", "phi_"}], "}"}], ",", "seq_", ",", 
    RowBox[{"{", 
     RowBox[{"tmin_", ",", "tmax_", ",", "dt_"}], "}"}], ",", 
    RowBox[{"func_:", "Abs"}], ",", 
    RowBox[{"gammaBath_:", "$GammaC13"}]}], "]"}]], "InlineFormula"],
 " \[LineSeparator]Calculate the cluster coherence"
}], "Usage",
 CellChangeTimes->{{3.498552102648452*^9, 3.498552139733322*^9}, {
  3.498552254656874*^9, 3.498552261612172*^9}},
 CellID->982511436],

Cell["XXXX", "Notes",
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellChangeTimes->{3.498553221969899*^9},
 CellID->1255426704],

Cell[TextData[ButtonBox["ClusterHami",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/ClusterHami"]], "SeeAlso",
 CellChangeTimes->{{3.49855217298662*^9, 3.498552177276118*^9}},
 CellID->929782353],

Cell[TextData[ButtonBox["ClusterCoherence",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/ClusterCoherence"]], "SeeAlso",
 CellChangeTimes->{{3.498552229540638*^9, 3.49855222963141*^9}},
 CellID->204869641]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[BoxData[
 RowBox[{
  RowBox[{"exampleCoord", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", "\"\<H\>\""}], "]"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{"$DiamondLatticeConst", "*", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"9", "/", "4"}], ",", 
          RowBox[{"9", "/", "4"}], ",", 
          RowBox[{"9", "/", "4"}]}], "}"}]}], "}"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.498552690776728*^9, 3.498552693938664*^9}, {
  3.499251924187119*^9, 3.499251931266382*^9}},
 CellLabel->"In[64]:=",
 CellID->1164310054],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"mathRealization", "=", 
    RowBox[{"CoherentClusterEvolution", "[", 
     RowBox[{"2", ",", "exampleCoord", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
      RowBox[{
      "$UDDTimingList", "\[LeftDoubleBracket]", "10", 
       "\[RightDoubleBracket]"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}]}], "]"}]}], ";"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.498552270325572*^9, 3.498552356492236*^9}, {
  3.498552435138466*^9, 3.498552532128832*^9}, {3.498552570498451*^9, 
  3.498552688164706*^9}, {3.498647145716627*^9, 3.498647151222237*^9}},
 CellLabel->"In[65]:=",
 CellID->747121109],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.6600409999999992`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.498647153037776*^9, 3.499251546368187*^9, 
  3.499251933244992*^9},
 CellLabel->"Out[65]=",
 CellID->1449818308]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"cRealization", "=", 
    RowBox[{"CoherentClusterEvolution", "[", 
     RowBox[{"2", ",", "exampleCoord", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", "\"\<UDD\>\"", 
      ",", "10", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", "0"}], "]"}]}], 
   ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.498647154463332*^9, 3.498647158255351*^9}},
 CellLabel->"In[66]:=",
 CellID->1617009137],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0160010000000039`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.498647158573534*^9, 3.499251558951768*^9, 
  3.499251667788818*^9, 3.499251933404264*^9},
 CellLabel->"Out[66]=",
 CellID->2022475332]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"mathRealization", ",", "cRealization"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.498552539981994*^9, 3.498552553579258*^9}, {
  3.498552647109603*^9, 3.498552649486764*^9}, {3.498647090393913*^9, 
  3.498647101797234*^9}},
 CellLabel->"In[67]:=",
 CellID->2000687598],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxV2XVc02v7B3BEwAaxDqJiYxDGsYOPjYKIiq3HbhQRETnYecQWBBOPgYWC
CoqAtJSg5OhaF6MZjMHGbxsXz+959oe+vsZ33933dV3vzz2G7zyyeo+2lpbW
Y9Uv6t87Xo1t6lc15GcORrp678f/Xrujia7nlNvfvO90AdL/+furqKfrMJPL
FavCbiHjf/69F4bI2q8HTSgdpXfeB9zx//3/H+BBYa3mujC9yYHz6jGMVm/4
r/s9he5US7n6evl0z/nbec9QWDE+///v/wLnRJX91Ndm/wxQ3eIlWkN6erb8
5/1eoftU93mVquvu+S+d53Z/A0ZgyK+I/7z/W2yp+7BqsOpabDqp64fBAVDW
m7zbouh4nvcwWmx5jCWrxk+36H+NJwSCt+ftX7uqOp4vCN/83D9m5Vdjjerh
E4Z9QunuohHd33c87ycki5NPFW+oxqLrhwQt7z4j448nY0x/V9HzB+NgD9f3
lrWV+FPzCsHwYMbyAZ8l9HlCcNLV6XCATgVGFjernvgLer9Prp0tF9Ln+wqj
eLbj7Fg++l6MTX2+OBRDHG5JA95y6fN+Q9ob1sKxwznQ1tzwG752nT1s5xM2
ff4w8HrVO95w4qAu225n7w3h+PjKfxbPn0frEQEP5oLly/hCsDz6BVmzIjDF
3FvW/bCE1uc7fk2w39jHtBpZIzQPiGxp/JbRjR3rFYU9myYlvBlQhTj109VH
wd2IGZlzSETrF43waTFYEcbGJ5f9dytPxeDPCdOO3pbn0XrGYsETm27im0lY
qVqtPhdj0YfD3RGn/Y3WNxYTuC4BnKOxWKp5wDjY7/BfdXpINq13HAp/Mua2
zmJi3tStEct6xkPP7oFP4TYBrX88klNmXc3+UwLN7TLjYcqT6b+z6NiPH5hl
cWXo9u5itJfvDzhHygNXFnJof34gbnCE9Tv9QoxRL9emBJw4Hs6M2plC+5WA
Dwadf7/eHISh6o9rkohhlvush407QfuXiGdO69v2f3THH5oFTcSDF+V9Nv9x
n/YzCRPzjfYl2D2CvkWwX/Ub1XWw1ZBVR67Q/iZD6/aP+wFGDlA93MLrh1TX
EyURk38+o/1OhmvNoX/u9oiDkuEuMp2UAq11hjMOzs6h/U/B708877v55Wgc
u+V2vDQFH+1fTds8m0f18BPcioAWnfcCVJ2CagV/YsPUXYd9rflUH6nwQYXT
+6ss8DPVBaC6vtXX02t1HtVLKlbKf8Rrv0qEZvkWpqGVsYvRdvYT1U8aPrhe
0x0VFIBc9eN1/YU+Ww6GdTb7TvX0C+YRs6MvTU3C71+aF7zHzN+2QfGT6us3
7FxH65/WTULiMHUF/Yb5Jedws5owqrffuLPe6+PIJY8Q5eptpLMuHVo9gwyj
xp2h+kvHkw118RcEn/ElRX3DDChf7PB3UP6keszAtZbhEXZr86Ha3N2zyzMQ
a9XoOtSYSfWZiYF6lb4Po9hYrblhJpxvXxCvfcqhes2EvLvOB/84DlaoVnPm
l0yIu7mlPXPjUv1m4pdl8JcHLnzY9FTvWBZ6Zu/znQ8R1XMWxl+M7ha9tgJL
QusVDPcsaOdPXtOPJ6b6zkLSwIPxp9l8LFDdbERxFvw4NsL1/uVU79kY6+2/
p8ouA1aagslGwc299jgTSPWfjYmfnUSnna9gpmYBstHvY1J+bXgs9UM2lj6c
KuEYFkBzO+0c6FvvW+9WzaX+yEFV/31cG9cKaMp/dw6mJtinPhxRSf2Sg4rv
PvbnPURoL98cGN7layv02dQ/Odjss9bB43IOxqnLbywDzgbLOmNuJPUTA3Oc
u5lM2/sSozUFzkDoPI8u/Yq/UX8xsHK0aZOfcTqGazaMgW4PPRSD/Aqp33Ix
5lbt5idyJoaot88+F1Mvmv51qTuH+i8X+U/s+rHa2Bios07VYrlYHr9DdMKX
Rf2YC/4Dp4Mpd8vRX1XNHv3y0H9yTaVuZgn1Zx58S8eHvy4qhuEG9QrmYaq0
7GRol1Lq1zyscnqUEjaKCc32FubhlnSB1z/+bOrffDzunONm9ZYHzfLNzsdT
76SNk32F1M/52J3OkRa9FEPzeH75GLF80N31hhXU3/nwncG9PO6CCO2aF2Cp
T5feXxfzqd8LMH11Rv/MrWy0vqtVdXQBTNZxY447llH/FyC8fOfybOMSyNT6
JhRgnMve8kkNZTQPCjAt51L0mCEcNCjUNyyEx1+OByzTBDQfCtF4fK5eXU8J
at4k2U73LMTSoQzr71FVNC8KwZlnIZ58shqSVeoGKURI1qKGnJAqmh9F0Psp
/+7nUAlhi/oBizDHcbCLGyQ0T4qwZXtqUwW3Au28FsFD2DyO01dC86UISev2
/rSwkEBTzn2KEepwxO70pQqaN8WYNH1v879RImjKxbUYdx9tOL2jkU/zpxhK
ncfrVn7koH07iuHS5nZ6tyeT5lEJIm6OTDDRLkGO+uPOLEGV0nnBvrsFNJ9K
sH7OCYNuD/OQoYkvJXiyyLDg+Ytcmlcl6H/9hP56s1ykqceRogSTTJybUn4y
aH6VIlN79FTWDAaSbdUdVwpWpz/C/96eQ/OsFDu3j3OZfiQbP6TqDSnF0fDD
flnyLJpvpUgZI+VLldmIUd9tVBlsljfqzfHOo3lXBj8XRa3P+lJ8X6auwDI0
TRqw/8p+Ds2/MuyvND2fe10IzXgRleHNsrnuf9yT0Dwsx6TRskdpqnyiaV/b
crj+vb/rmOAKmo/lmH20B69alw9NewSV48O8NWN2hZTQvCzHkPk+tcFX02g9
mXDut+WHBT7Q/GTiWeenU1aYedD6MvHLxPH8tt8faZ4yYa3s6bH3dBKtNxMG
vru92UbZNF9Vrlu/HPtqbC6tPxMbndJ3b56TQ/OWidEzs6eUW6XRfjBxaoxE
x/NnJM1fJgokH97f8XlN+8PE/mF9bjfnPqV5zMIH49HKxNcfab9YCNo5Sd8s
/jvNZxZmpjn1vXg5jvaPhUPXSn2ZqbE0r1moGrztp05cOO0nCxMDM4+9Cgym
+c1C0TyDpZOVIbS/LIzNeOi4jxFL85wFt9LjD3oP+037zcINk1ECL5M8mu9s
vLrwjaEMKqX9Z6M0aVA33aVsmvds9P4lKUv6m0f1wMbCVquW58FCmv9srP24
Zfh7aQUiNPXBxgqHd9LLYVXkARt3dnmUbmzpyLtsHOh179vqxCrygQ2vkqX9
5Iliqh82vk26vWxSJJe84KBt6YCKptASqicOrl0s0nXamEN+cHDjFNOw055M
qi8OLkX9uWDuOQZ5wkEf3d2rYr6VUr1xsOS35Q35XC75wkEjo0dinwAh1R8H
XlkrBtVMqiBvOND/fbbzc2UF1SMH5kYrZN21O/K16v2MT33oYi1BgHo89uYi
uzxjYdOySvKIC8/70e7N4VV4qx5v87no4bh0cnVcNfnERbng1UyT19V4rR5P
Llx8urXpz8Erq8grLhpSZ8q6qPKyv3q8vOSCf7DsU8Z/8jwXU/SW2sap1u+F
uvwYqtxeMKqg5FgFecbF4Dszv78tq8Az9fbq8bCad8I83U1MvvHglLNk3Vor
Pp6ql286Dxe6r63cNbycvONh+CbOS+mdTDxRP95+HiId+ptbhoeRfzwYOWYI
v5wNxqOH6hcPok41XVawU8lDHlb8Xn7lSUMpHqjTd6rq/Vnh3W51EZKPPOjH
j7l70aEKvgvVBc2DcP7r4GOrq8lLPvISsuvbvMS4Z6S+IR/+P+7f4lSzyE8+
DIf2Z62/ngWvSjUYfDBeGI4etekLecqH68/EVHHda6h3Y8ttPsJ2Tz/8dH4S
+crHmb3RLtOnFaH9eMDH4vv1osljeeQtH5EbG67/XSWGpt1q+XDaUaIYFiMh
fwXYZDCKP8tZDE05jxDA41vVuYSRHR6r/v7ZrP7y+aXQlIuDAGOXH+opn5hF
PgvA1A958/ZCLDTbcVmAiYo13eeXvSWvBRh2a+3SXau80X48E2B/zb7rs6N8
yW8BtrzSl2+o9Ef77QRouO0xoEDnE3kuRLpZ55B58i84q+baSAinh9d+1B0L
J9+FSL04kel4OhqnNR0nxJ+92PF9vseT90K8ZGj1F0Um46R6WnkIEfm0uOHa
4XTyX4izwZ8Wr5ueg7/V4/mDEM5GNiNH/p1PeUCIoT17HnnvWYwTGq6ESHG9
cuvd6I7zghDHMm0HnVTNxePq8aIvAnvP5QWeSWzKCyIYDZyhc+Y8F8fU7avK
tV9PPjk6eB2f8oMI53ak5ZmqPvdRdXs4i5CyNGZEppeQ8oQIcyXbU6K/CHBE
XX7PRfgc6iPq2ZlH+UKE06dW1F7IZ+KwenuzReha6u62xqmA8oYIteFtX8b1
yIKjevl0xMiYF3mkX2Ua5Q8x3mYyPoybkokD6sebKsYc3fKgR0l5lEfEMAge
euhXfRn27VW/xDAaddR+cwCb8okYpz80609+xsGe2eqBKsbdTpssLshYlFfE
eJah31tZXAINRylirHGKifjLMJfyixheNwbrzMrMgGbcN4uxfQnn1uRBGZRn
KrCu5Itg00AGNOPUrAJ/aF98lfZPMeWbCqSPL5WMtmVBM662VOBMl6AhB3px
KO9UgNsnOZwxnA3NOLipuvaZNmqIqp7b808FMjPDlq0emQNNu0VX4JTvlZuL
jeMpD1XgnCLNfFj+M2jKuboCw0bMkIdEe5DnElQZKF7rbg0mzyXYN99rPvdo
GnmuymUDL/Y1yS0kzyXYa+B0sMc8DnkuwdJ///DTjRCS5xIovh49LDolIc8l
uJqYEV3So4o8l2DaXSNOT9V8bvdcoqqj8/OOHhCT56r/V1satZTHI88lWF9Z
P9X/AJM8r4Rpl+4+rt655Hkl9lqUnXzwIZk8r4Q76+wJuwVfyfNKzIgapWV8
OYA8r8R2uyN2un4dnleiL8rfhtj8Is8rodfJzzyqdyF5Xgk3m5Ll5q5s8rwS
Uq2gwfJHAvK8Et1tiwZOU3nQ7nkVLhlURUfbSMhzlcPzmo0sYyrI8yqMiPu2
39ZaTJ5XYfwo5VbdTiLyvAqRo28e254mpLxXBU/pwi1rBSLM0gBcBaF+9k/j
kgryvArszan2K4MqyfMqPHRr1v2umuftnlchdQBvapxqndo9r8bFc59WsLeK
yfNq+BubFGwI5JPn1TiiP/f8yLkc8rwaWOL5bbseizyvxtCLXyrjnJjkeTXW
saKcP41lkefVMBve/c6XvWzyvBpf7/a7tGQJhzyvRuO6G7JbsznkeTUC7QTs
3TYd58lqjC0Zb3VJ2pHfa3DjV9TRToKO81sNqiKWFO19V071WoMdV8f67Uph
kk812DRkVmHOQzbVbw0SrD/fWVzKJa9qYBW+fdRqcwHVcw0Grcm742onIr9q
VHnc0e7elAqq7xo8tr3Y6aiqLjXt71aDY7a3Jn5UrW97vdfAfEX0jrWbq8m3
GgQljFhWUlBN9V8D62Wv6j6mV5N3NTgRV7BqqXs19UMNlPm+k+ao1r3dvxqs
O77b2Gd+NfVHDcbrjrbbfqWaPKzBJ86SiMcHO76frMHpJ6HTFN2qyMca9MoI
37n1uZj6pwZJOhmLxxvwyMtahOTN2GS8oIT6qRYl0duvOrB/k5+1sNzJGWEg
/0b9VYsz/YsO72F/Ik9r8cU74n2nAQnUb7WwucYrmq+bS77WYtHOpihtOyb1
Xy3u63ZfH1LFIW9rMU/5zSZcleva+7EWTeVNN5Xny8nfWjz5uC3Tuiib+rMW
Yr0eA1uGfiePa3FubqdlAcGnqF9rsXTx3tXPP78mn2uxMaDihEdbKvVvLQ6/
cFRkBZeQ17W4HKLMGO3Mo36uxfGW6LoLB0Tkdy2SFg/WGZwvpP6uRTeD2rHz
WjjkeR16n+88YLVNIfV7HdzHeK49Vp1IvteBkZ4Rs8f+GfV/Hd5u2zahRPGA
vK8DmqSME44/aB7UYbswVtylKp/8r8PX3eMiR7RxaD7U4aBkmMOiSDHlgTos
abCI4V/r+P65Drck48tXxVdRPqhD4xaLa00xHeeBOiTmu9/IeMGnvFCH47dz
j2wvYtL5oA5WrQVzmvbnU36oQ1ivtWzTgZk0X+rQaZfsmlZYCuWJOoy6Exra
wy+Z5k0dTPNSjXs3pVK+qEPtZFdtrXWZNH9U6zPAdMnhxzmUN+oQk3Dis5t2
Ps2jeoRr369/HFRE+aMew3bdsHaXltF8qsfB9AEhel078kg9Lm25uYpd0fH9
VT2uPV89ZVSugPJJPZa43PfsO19M86seYf4VN4r+raC8Uo/fkVa9nl7u+L6r
HhuizwTH5Ykov9Sj97RLoqhSPs23ejQnbRj3AhzKM/WwtU8P9n1WTvOuHouy
K5193xZRvqnHdhvWz963Cmj+1SPz1TSPALdCyjv1GHn/8tkpiSU0D+vxdGOE
+ZLQjvxTj49uMxA8oWM+1iPWODIo7RiP8lA9nhvMspD/JaB5WY/ZPcMO6gqE
lI8aUJfzI82oWUTnoQakJ9ZMeb1CTHmpAabaDidT3UR0PmqAXumD9ff1BJSf
GjAxuUsvDodN56UGGG+V7BipU0x5qgHaUdt9tZ5n0PmpAc6M8d+tnL9TvmoA
49O7QJmOP52nGpDp57zhfvcgaOLRmQa04uJknusPOl81QIvF6xycnwVNvLnf
gKsTHz0OSS+g81YDvBJZUx7LiymPqe4viPQOO1VE5y/V+8ePHpDum0v5rAER
0sEhNj0y6TzWgB7xvU033P5Jea0BjcvSmSsaUul81oCdU66/dk/IovzWgEF+
aYKNx/PpvCbFgxs90w0/F1Oek2LPG4eLU0+U0PlNiuxvFq/tYwop30lhfivO
cbdPLp3npIguCjZLHJJDeU+K8T5m/n2aGHS+kyKsR2n3cynFlP+kYN61nehS
yqbznhTTZN6zdXwElAelcPx1xcl8mJjOf1KMEv7MUG4WUT6UYublmJ6LVPXS
fh6UYt/c61kz75RTXpRCbt0yk/WQQedDKeqUo8u5p1MpP0px/b7dwJyNiXRe
lEIvOeuQ/rZkypNS2Iy/99ZnSBqdH6VoSYlN9l2eRvlSijkH9BhliYl0npRi
8MdTTg5e4eR5I8J8rx957/uGPG+Eufk4h1PbO75PasQzG79De27/IM8bsdVQ
y7BrIYM8b0SWs/b9s6rzQrvnjdB17vl7iyGfPG+Ez9CalOcOQvK8ET1LLHfV
F/HJc9V1+eIuQy3YdD5txLjHA7ZLg/LJ80bUfZ3SdsoymTxvxKgs29etxwPI
80accw62GufpQZ434mrm6lMnJf7keSNMJ33yPOIeS5434kDR7lM+lunkeSOS
Nux4rGebS543oou/gW99QCF53gjbQe/apsUUk+eNyJ29edyDs8XkeSPqpem/
GAaF5HkTuH8ritMCGeR5E6wuWgVyAjo8b8KcoXNrzotiyfMm9K6vCm5lvCHP
m3Du1okw025byfMmXNWe/+GjhS953oRNRxxP7hkZTZ43IbNn3WyDkdnkeRMM
kj+uMfEsJ8+bsPL7oy9TH/DJ8ybEDNtpzxkrIc+bENy37KlgVTV53oTjU1s+
57t1/Hy1CV79zQr7+kvI8yZMO1wvbD0nIM+bYLJiWN2hISzyXPV5Xs9JdNqU
S543oWSy65X5fySS56rPM6/1pXVOAHneBOb6dXfG25wjz2XYbzzh2b7fT8lz
GRqGRC7JXvOdPJfBevjWSVu6/CLPZdD5rGU2uW8eeS7DkTmDzj0OLSXPZVjn
+iZwgpxFnsuQMP/f0KoxXPJchvd7vbayHHnkuQzPPTtPetaNT57LULkwXq91
L588l8H3p4PZRD6fzgMy1Z/fX+oXLSDPZajOS5kVxxKS5zLoTThcIpSJyHMZ
+mzuMlX/vJg8l0F46pIWWykiz2WAiW/4qplC8lwGh0C26dmdPPJcBucLEeJ9
xmzyXAaDirSXBf90/HxBhs9n9QJ6OBeT5824VmJ1c5WgmDxvhvLR8hsbEsvJ
82Y0znnsXcrs8LwZNuGuec8aeOR5M2Z36XPEwkJInjdjsse18VYKIXnejCUW
406mHBSS5834OYafukTJJ8+bkRr2TznHnUeeN2PEPq2+845xyfNmmDm8GSwz
5JLnzZhVO9LIr55DnjfDxdbJYO8ODnnejFiplBX7gUWeNyOsUO/g/iGl5Hkz
eNwVfa6GM8jzZljVmm3tLkomz5txydXoxdfNX8jzZswLOD124Ldn5Hkz3j61
PK7o95E8b8bSy4k9skYlkOdymN+Y0KnGOIc8l6PfXubxMewS8lwOfWYn3dBw
NnkuR9EtE/fwRB55Lsdk+6axW/cJyHM5XDwnLD2aIyDP5ch86Jt+65iAPJdj
5ghFVUYInzyXYyc36tHlch55Lkd4YI6Woh+Pvj+R48xq3atHlnPJczlycq+4
yvd1fJ8ih8P61Wb7FrLJczkurDG8J4lhkudyHOgTobB6VEqey7H2z5raUnYB
eS6H3NHO3OhlDnkuhy/rYVlx8i/yXI756e9Ez4N/kOdyDHY8tDY1MYI8l+Og
Yk3K4BVfyfMWrDTp9UTyPJQ8b4FJw4KQbZMiyfMWmC6ZHryuMZY8b8FfQz8t
tufHkectcD460UL2NoY8b0F8yoEeJ3xCyfMWPDD83KA1KoA8b8G9iFztPM+X
5HkLbhkPMnxnEEKet+C3ybSr5mZJ5HkLzN97Wg3snEuet4C/780i30NM8rwF
0w3rB5opeeR5C45l+jEvFIjI8xZk/OslS9eqIM9boCPaanxzhog8b8HAQXyb
ykE88rwFd+wqGPXV5eR5C85+iC4uSMkjz1vQ83b/vIGXs8hz1fO4dNkmeZBF
nrfiozB8xKDQPPK8FWIv7y+rKsvI81Z4myQN7BXIIc9bsXjNyuvpt/nkeSvm
jjt/YvJEAXneir0ctqe9E488b8Vp6a87U7TY5Hkr3juM3J27pYQ8b0XdUO+7
LeF55HkrBJ1tvaX9csnzVhw6deJ0d14+7mg8b4WBbe+3KRWl5HkrGk/uPlG4
ig0DTQO3on+Xh7p/3eOS561Y0HdV1Tl/LnneCgvrXVZdLdnkeSsq/rY6e/hu
MXneCstPvjs6q9an3fNW5NycbTvY/Qd53goXt+Iz6yy/k+et2BXsHO2yPIE8
V8A/59tU6+U55LkCnw/teeTVlUmeKxB4dfe93R/45LkCifHsCy49JOS5AsqS
QMv3A6vJcwUKbI4+nHypmjxX4E0/ncKMwEryXIEk3tpeXY+JyXMFnrjLQtfl
8MlzBa5n/5454gWHPFdgqWUdQ7iBRZ4r8OzLgSC3PkzyXIGIoIwT/W3LyXMF
3L+fvWF2v5w8V+DPz9Yfm+cxyXMFtvxTW5rKYJLnCoRfit8Qup9FnitQff/G
5M9CFnmuQKj/7F6yBWzyXAHeu89HDPawyXMlZmXeG/5qLps8V+JMkpFLRCyL
PFfi8u0hj8ZLmOS5El0SYi4NfFhOniux6EWVSZhuh+dKbPI/nNzDq4g8V2JS
4zibhcwC8lyJnpYb727zLyDPlbDwnWdt6lhEniuhFztsRuTqMvJcCcnIbJvV
YhZ5rkTvB/YLX7C55LkSAdfOuA9cIaDv+5TI+SSwHHNSSJ4rYRg788/LBkLy
XInRnuXvjkzgk+dK5OdOOux7hEOeKxF0k29h78Ukz5Xo9v7LzsKNJeS5Ejv3
wpWRWECeK+H72TMrNDKXPG9D81/cbf5Ds8nzNuiHFPHid6WS523o9+vSmYwl
UeR5G2TecUO5Js/J8zZorUzoM7hMizxvw0qvwK3PX7wmz9sQanEweXNzInne
Bu7iBhe/73nkuep+ZTpK+1Us8rwNde8WrWxWzYd2z9sQVtdtwNSDfPK8Ddqu
e63fmXf8fLENjK9zedPyy8nzNqy4/9u895p88rwNZaJLoX9EZ5PnbejU/+tu
R9sOz9uw6La8/nxgMXneBifueRvv6R3nc9XzL++8ye5fIXnehhTt/jFe4R0/
n2xDzDqL6W91qvF/4UJjdQ==
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJxV2Xk81Ov7P3AVbUraJZVT2qNy2hev9oRS2rScVq1Km+S07yctKkWrDqVN
QnKEZMsWso59GzNmMTOMbRjDzPxmxuXze3znDz3ej3h7z31f1/V83eOPPcfs
9nXV0tJ6ofqi/rfz1V3ztQ6yi4ejnB8dRI//c+2Kzv9fUGF774nTVfzf77/1
v+vwkTeE68LdwVWqX2L6fg+YSzuuh08tM+l+xRPtkzquO37+KQKL6jXXRRkt
69lvX2Canb3muuN+rzBipplMfW0z223xLo4PxMJJBf///q/xtLpmkPp68j9D
VLd4g0Ghfdza/vf73sJ4puuiGtV174I3xxf2fg/R56/pkf/7/R/g3BCwzkh1
LRg3vWeAkT8GN438uF3e+TyfYLrc7FSlVIxfLtH/Gk79jNZ9H/7aW9v5fIHI
8nYNyi4QY4Pq4ROMg9HkUDy696fO5w0GS5B8vsRejGV3jvDaPn5BzdCX48f9
rqXnD8FtXedPZvU1+FPz+grLEIbNkC8iej9f8dbZ6ai/thBjSlpVTxyKeZ+S
6+fL+PT+/sOqeJbj/FguBl6LTfVdHgab9e4S/w9V9H6/Qfa+cumEP9joqrnh
NzB7zjfe85JF7z8cffQaHe86sdGQs3qPvn0Est76zeP4cWg9IvGMucRmFZeP
yrODAldWRmLtlEfS3kdFtD7fUTXVdsuAcWJkj9Y8IASS+O1jmzvX6wfOb52e
8H5ILeLUT9f4A3cNmFG5R6pp/aKRNCsGa8JZCD558GHN+RjMmTrrxH1ZPq1n
LPRfWvUS3EvCWtVqDbgWi9esqt1xXb/R+sZCxj7pzz4RC0vNA8Zh2m6/dRdG
5NB6x6HkF2Nh+zwmFs3cEbmqTzz0Vj/1LNrJo/WPR3nKvFs5f4qguV1WPCw5
Ur2Ppp378RM7TG+O2tVbgI7y/YmnUbLPa4vYtD8/0WQUufKjXhHGq5drawL+
Ox3B/LEnhfYrAT31u/1+ty0Qo9Rvd2QitKYcWGk88QztXyJ8Dm1WHgxyxVDN
giZimm/FgG1Dn9B+JmFOvsGBhNXPoWca4i1+nwSfYIsR647dpP1NhpbLzyf+
Buuherild44kI9xMFGn+y4f2Oxki8ZF/HurGQcFwrR43PQVvNvafc3h+Lu1/
ClyCOY8eFlSgecL2+/GSFJy1fTtr23wO1cMvRAj927Q/8VB7HqoV/IVZM/ce
9VrJpfpIxVkInT7dqgQ3S10AqbjlPtDNwy6f6iUVK2U/47u+TYRm+ZamwTxv
L0N5KZjqJw0vT9/WMQn0R5768XqmI3T74fBuk79TPaXjUuT86Oszk/A7XfNC
lwmLd9rLf1F9/UaQ81i9CzpJSDRWV9BveF0/HjG5Lpzq7Tf0t3gEjVnxHD+c
Hxlob8qAlm5g/x8TL1L9ZcDOviH+Ku8LQlPUN8zEz9e7/dYrflE9ZsK57Y/I
1RsLoNpch/kVmYi2aHYeZcik+syCSfcar2c/WLDT3DAL7vevCja+YlO9ZmGy
rnaAXxwba1SrOTdUdd3bJc3HpYrqNwtDpoaEPj3JhVUf9Y5lY3vOAa/FqKZ6
zsbla9G9ojcKsSKsUc5wzYZdgfmGQRwB1Xc2ehkejr/A4mKJ6majS7KhYFvx
N/tVUL3nIO6R377a1Zmw0BRMDuzd99vi4meq/xwEBztVXzh+E3M1C5ADZWBS
QX1ELPVDDmyezRSx+xdCc7uuuTBZeWCzi7iK+iMXQ4ccqLJyFkJT/g65OJxg
m/psdA31Sy6mRXnaXjlbjY7yzQUecrvK9VjUP7m45blx/dkbuZioLr8JDCzo
t6obFkZRPzEwwanXyFn732CspsAZOI+zPQaVfKP+YiDBZFyLt2EG/tBsGAPa
z87Kh3sXUb/lYZV7/baXMiZGqLfPNg8u18b9db03m/ovDwu8Vw+qVLIwTHuT
qsXyEB2/u/qMVyX1Yx6ynjkdTnlYgcGqaj47KB8M87oanaxS6s98LCmfFPGu
uAT97dUrmI9ySfm5sB5l1K/58HN6nhJuwoRme4vywZUs8fjHj0X9W4CGbrku
Fh840Czf/AK0P0raYu7Fp34uQFIGW1L8RgDN43kX4K7N8Ieb+wupvwsgm1N1
Y+LVanRoXogvnj30/1vOpX4vxH27zMFZO1ho/1iv6uhCBG6qijntWE79X4gF
zD02OYalkKr1TSiE+8n9FdObymkeFGJr7vXo8SPYaJKrb1gEv78cD5ml8Wg+
FGGCy8LuDX1EqHufZD3brQinRzFWfv9RS/OiCIMWmwrMz4khWqdukCKUZC9r
yv1aS/OjGKN/yb57r68Bv039gMWwcTQ66QIRzZNibNuV2iKsEqKD12Ic57dO
ZA8U0XwpRvim/b9MTUXQlPOAEkSuP7b6wnUhzZsSLJi9v/XfH9XQlItzCXyf
21/Y3cyl+VOCHjovNq0NYqNjO0pwRelywcGNSfOoFLH3xiSM7FqKXPXbnVuK
csXxJQceFtJ8KsX4BWf69XqWj0xNfCnF7mX9C31f59G8KsXb22f0Nk/OQ5p6
HMlLkT7ieEvKLwbNrzIs6zp2ZuUcBpKt1R1XhnVdhkb8vSuX5lkZ/HdOPDn7
WA5+StQbUgav8KPe2bJsmm9lCBwn4UoUOYhR382kHGbWzd0XPMqneVcOjxPy
es/NZfi+Sl2B5Tg5fcjBmwfZNP/KoVUz7kreHT4046W6HBdWLXQd+lhE87AC
q8dKn6ep8ommfa0rkPD3wZ7jQ4Q0HysQdEKXI9bhQtMegRW4tXjD+L1fS2le
VuDBEs/6kFtptJ5MpA/Z/tMUATQ/VS53eTVjzeSztL5MOBg5Xtn5O4jmKRMM
eZ+z+y8k0Xozoe3l8IhlkEPzlYmTK99MeDshj9afiRynDIdtC3Jp3jIxZF7O
jAqLNNoPJl5OEGm7/Yqi+ctElCjg0wPPd7Q/TLgaDrjfmveK5nElZgweq0h8
F0T7VQnZjul6k+O/03yuxLJfTgOv3Yij/asE71aZFzM1luZ1JfiGO39px0XQ
flbifEDWqbefQ2h+V+Lu4n6W5oqvtL+VGJX1zPEAI5bmuer3lZ9+qm/8m/a7
Ei6jTHgeI/NpvrNw89o3hiKwjPafhaXJw3vpWLJo3rNgny4qT/qbQ/XAgkO7
RZtvCJ/mPwtrgrb/8UkiRKSmPliwXP9RciO8ljxg4c3es2Vb2jrzLgsBfR9/
s0usJR9YUJRaDpIlCqh+WNhpfn/V9Kgq8oKNQVZDhC1hpVRPbJy+XqzjtCWX
/GBj9AVm/y77sqi+2Lj7488lCy8zyBM2vmg7rIv5Vkb1xoYg3eyubGEV+cLG
S4Zu4gB/PtUfG0ey1wyvmy4kb9jo//tSN1+FkOqRjV0Ga6S9u3bmazYSDM8H
9Fgpgr96POpXoQ8zc2nLqhryqAqRT6JdWyNq8UE93hZXwcjR0lwcJyafqpDG
ezt35Dsx3qnH08kqnHDf+qfR2lryqgreqXOlPVR52U89Xt5UwfVweXDm//J8
FfJ1LK3jVOv3Wl1+jCoUF5gUlp4SkmdVGPdg7vcP5UL4qLe3OweBnDNTMlwE
5BsHXRgrNm204OKVevlmc+Cju7Fm7x8V5B0HxVvZbyQPsvBS/XgHOdDfMHiK
WUQ4+cfByYOZ/NBLIXj+TP3iYKxS3GMNK5U85GBQus3Nl01leKpO36kchDIj
ern34JOPHOTFjX94bX0tvJaqC5qDMUvehZyyE5OXXLxMzGlUegjw2EB9Qy7u
JjxxZ4sryU8uQowHV26+kw2PGjUYXBS+6z/WZGsoecpFQFpiqqDhHdS7sf2+
6pzjMPvoq8VJ5CsXsfuiT86eVYyO4wEXMq/GavMJHPKWi+tbmu78XSuApt3q
uTi9u1RuHCMif3nw7GfCnXdcAE05j+aB8a32csKYTo95MPGdN1i2uAyaclmv
ysE2R/rIpmWTzzy09/v6/sPVWGi24wYPPZUbei8u/0Be82B5Z6Pl3nWP0HE8
40FLcODO/B9e5DcPRj56MvsaP3Tcjof4u2eHFGoHk+d82Ezo9nWRLBSX1Fwb
8BHveftnw6kI8p0Py8vTmI4XonFB03F8bNNlxQ/4Hk/e8/FHrtbg6qhknFNP
q7N8mHqXNN0+mkH+89H4JXj5ptm5+Fs9ngP4qB9qNWbM3wWUB/iI1u1z7JNb
Cc5ouOJjl/NN949jO88LfNhmWQ8/p5qLp9XjRa8a6ftuLHFLYlFeqIbIYI72
xStVOKVuX1Wu/ffcyxNGm7iUH1Q5d3da/jjV+z6hbo/j1fCwjBmd5cGnPKHK
NaJdKdGhPBxTl59vNaaFeVb36cahfFEN+bk19VcLmDiq3t6catwscXXZ4FRI
eaMaFd+UoRN1s+GoXj5tASIXRB0bVJNG+UOA3xmMgIkzsnBI/XgzBfjWrSLw
eVI+5REBDL+MOpLeWI4D+9UvAQxMTthu82dRPhEgJaBVz9yHjX3z1QNVgK5d
t5pelVZSXhHgYJaevqKkFBqOUgTwdYqJ/Kt/HuUXAT7cMdKel5UJzbhvFUCw
lO1uPjyT8owQt4tDeVuHMaAZp5OFyFNefZv2TwnlGyHSJ5aJxlpXQjOutgsR
2D1wxKG+bMo7QhwYkBzB+IMFzTi4J0SI5yyTEap67sg/QiRlha+yG5MLTbtF
C7Hpyc17yw3jKQ8JcUuZNsW4wAeachYLcXnEHNnX6LPkuQhT9OTvdHaEkOci
WC/yWFx1Io08V+U0g2sDR+YVkecijOzndFh3EZs8F2HQv0O9dSL55LkIRmEn
jlafF5HnIlQlZkaX6taS5yLUPjRg91HN5w7PRRDkXll04pCAPBeB0VD2w5LD
Ic9FuF3bONPvEJM8r8HWXr09nR/lkec1eDet/NzTgGTyvAbTqi6dWb3kP/K8
Bo+jTLQMb/iT5zVwsTq2Wse70/MafFxQ8eGrVTp5XoM3ypdTfugXkec1eL2q
1GaKM4s8V11rBRrJnvPIc1XutSoeNkvlQYfntcjvVxsdbSUiz2sRvqjVwCxG
SJ7XIjTu20HrlQLyvBZPTRQ7dLpUk+e1EI29d2pXGp/yXi1eSZZu38irxjwN
wLWI1cv5ZVgqJM9rEbwt1XZtYA15Xov9Lq0631XzvMPzWgQN4cyMU61Th+di
7L4cvIa1Q0Cei3HScGSh/WcueS7GCL2FV8YsZJPnYqQud/u2q3sleS7G86uh
NXFOTPJcjHLmj+PBEyrJczHajXs/CN3PIs/FCHk46PqKFWzyXIxlm+9K3eez
yXMxZqzhsRysOs+TYpSUTrK4LunM73XonfHjRBde5/mtDsuiVhTv/1hB9VoH
fbcJ3ntTmORTHWQj5hXlPmNR/dZhneWXB8vLqsirOqRG7DKxm8Kjeq5D8Ib8
B86rq8mvOiyY4Lj68Qwh1Xcdhthc63JCVZea9nepQ5q1+7Qg1fp21HsddqyJ
3r1xm5h8q0NMwuhVpYViqv86WKx62xCUISbv6rAhrnCdpauY+qEOhQVe0xeo
1r3DvzrMOu1g6LlYTP1Rh0k6Y1fvuikmD+tQzF4R+eJw5+eTdWC8DJsl71VL
PtbhZmbEnh2+AuqfOuzSyVw+qR+HvKxHQsGcrYZLSqmf6qEfu+vWetZv8rMe
gj3s0f1k36i/6uEwqPjoPlYweVoPX4/IT12GJFC/1WPPbU7xYp088rUewXta
fnRdzaT+q8ez7r03f61lk7f1SFZ+s4pQ5bqOfqwH2C33FFcqyN96bA3ZmbWy
OIf6sx4ZfXWHtY36Th7Xw8e2yyr/kPPUr/Vwtthv5/vlHflcD/P3wjNnlanU
v/W44uMozw4pJa/rYfxVkTn2OIf6uR4pbdENVw9Vk9/1+LDCSNuogE/9XQ8L
/foJi9rY5HkD0q51G2JnVUT93oBVU9w2nhInku8NMCnIjNln60P934As+51T
S+VPyfsGODVJGGccf9I8aMBqbqygR20B+d+AwL0To0Yr2TQfGvBGaLx+WZSA
8kADBI2mMdzbnZ8/N+CjaFLFuvhaygcN2POX6e2WmM7zQANuFrrezXzNpbzQ
gD4P8o7tKmbS+aABf8sLF7QcLKD80IB7ehtZ44Zl0XxpgNte6W2t8BTKEw0I
uB8WpuudTPOmAXPyUg31W1IpX6jub+7cVWtTFs2fBhwfPG7F0Re5lDca8OXn
mS8uXQtoHjXCocuTxheBxZQ/GvFq992VrpJymk+NePB7yNfuPTvzSCNubru3
jiXs/PyqEQd97GaY5PEonzRi7YknbgMXC2h+NaL8jfBu8b9CyiuNWBpl0ffV
jc7PuxqxMvpiSFx+NeUX1c/Pul79o4xL860Rr5PtJ74Gm/JMI76tzQjx8qmg
edcIM0bNca8PxZRvGrHVpvKXvnshzb9GvHs/66y/SxHlnUb8fnrj0ozEUpqH
quffGjllRVhn/mnEkjNzEDK1cz42Ys7wqMC0UxzKQ40o6DfPVPYXj+ZlI5z7
hB/W4fEpHzVBmfszzaC1ms5DTUhJrJvxbo2A8lKTKt+sP5fqUk3noyb0L3u6
+Ul3HuWnJoxM7tGXzWbReakJ23eIdo/RLqE81QTvH7u8tHwz6fzUhPz8Sd8t
jn+nfNUE+5CPn6XafnSeaoLJy+P2T3oHQhOPLjYhyeKaOcf5J52vmjCfyekW
UpANTbx50oSMqc9ffM0opPNWE8wSK2e8kJVQHmuCJT/qUfj5Yjp/NcHn59gh
GV55lM9U928x+mqlm0XnsSb0TNYfZ3//F+U11fuzzWCuaUql81kTjGbfeeea
kE35rQnn/k3jbTldQOc1CRjufTL6fymhPCdBzof112aeKaXzmwTScNN3tjFF
lO8kcHSPc3TwzKPznASPi0MmJ47Ipbwnwc/Hk/0GtDDofCfBPt2y3pdTSij/
SSB5aD3tZBmLznsS7JA+mq/tyaM8KEFV+k2nKcYCOv9JUMr/lanYVk35UALu
jZg+y1T10nEelOD3wjvZcx9UUF6UoGxl29zKZww6H0oQJh9bUXUhlfKj6vk8
Vw/L3ZJI50UJ6hOyj+jtTKY8KUHXiY8/eI5Io/OjBKdSYpO9bNIoX0pw/1B3
RnliIp0nJZgWdN5pvUcEed6MAM87xz55vSfPm+FnMnH9+V2dnyc1452l95F9
93+S580w09fq37OIQZ434/Lxrk8uqc4LHZ43w/54n9/b+3PJ82b8NK5L8V3P
J8+bkVZmtrexmEueN2Nx5fIeo0xZdD5txqJ/h+ySBBaQ582wi5qhPG+WTJ43
YwPT+l37aX/yvBnG10IsJrqdJc+bYZNsd/6cyI88b0bIlGC3Y66x5HkzovMc
znuaZZDnzSjauPtFd+s88lz1fnz7eTX6F5HnzWgy+KicFVNCnjdDNHfbxKeX
SsjzZixrykhn9Csiz1vg4yovSfvMIM9bYHbF4jPbv9PzFmSMWFh3pTqWPG+B
c11tSDvjPXneAi2nM+Hjeu0gz1twucvigCBTL/K8BQbHHM/tGxNNnrdgf5+G
+f3G5JDnLfBICtow0q2CPG+B/vfnoTOfcsnzFtw13mPLniAiz1XXA8tf8daJ
yfMWBMxs+1Lg0vn31RbUDZ5cNNBPRJ63oL9TI7/9Mo88b4FyjXHDkRGV5HkL
hnxYkOi0NY88b8HBWc43Fw9NJM9boG3d/mZlrj953oJdxzc9mGR1mTyX4unw
qT4Hfr8iz6VYOyJqRc6G7+S5FKnGO6Zv75FOnkvhF6w12XxgPnkuhd2C4Zdf
hJWR51Jcd37/eaqskjyXYsqSf8Nqx1eR51JsOuCxo9KRQ55LsfV2t+k+vbjk
uRThy+K7t+/nkudSjE1dP3kal0vnASn6DX5i6R3NI8+lcC9ImRdXySfPpYif
erSUL60mz6UYvL3HTL0rAvJc9bwXr2uxFNXkuRRjjL0i1s3lk+dSOASxxl3a
wyHPpTh6PVJwwJBFnkshq0l7U/hP598XpHC+0t1f93gJed4KkzKLe+t4JeR5
K+4+t7lrn1hBnquuF7x4VMbs9LwVxeHO+T5NHPK8FfndBxwzNeWT562Yd/b2
JAs5nzxvRaDpxHMph/nkuep+E7ipKxRc8rwVsRH/VLBdOeR5K8Yd1Bq46FQV
ed4Kow3vjaT9q8jzVixqGGPg3cgmz1uRY+PUb/9uNnneii0tksrYgEryvBXL
y7ofPjiijDxvhYK3ZsCtCAZ53oq/mifv6F2dTJ6r7n/O4PV/20LJ81Y8CLww
Ydg3H/Jc9fwvzE7LBwWR5614ejVRN9skgTyXwfL21C51hrnkuQyLHJinx7NK
yXMZXCu66IRFsMhzGdzdR7pGJHLIcxnsbFsm7DjAI89lKHGbankil0eey/Dg
uVeG+ykeeS7DpjHy2syvXPJchrecH89vVHDIcxlGB+VqyQdx6PMTGXpu0Ll1
zKaKPJfBq+Cms+xA5+cpMojs7SYfWMoiz1XPv6n/Y1EMkzyXgTE4Um7xvIw8
l0E+q66+jFVInsvw17HVUwze5JLnMpzhPSsvSU4nz2WYnfOx2jfkJ3kuQ+ix
IxtTEyPJcxmc2zekGK35jzxvw9lhfV+KfMPI8zbsEi75unN6FHneBqPFs0M2
NceS520oHRa83JYbR5634fWhaabSDzHkeRua4g/pnvEMI8/b8KDvlyYtE3/y
vA3Xo/O65ru9Ic/bkD5qeP+P/b6S5214NnrWrSmTk8jzNsR9drMY1i2PPG+D
5aH3y7yOMMnzNvgNaBw2WcEhz9tgmOPNvFpYTZ63wcXXQ5qhJSTP27BdsMPw
3pxq8rwN7cO5VjXDOeR5G1LXCBmN4gryvA0HA6JLClPyyfM2HHYfnD/sRjZ5
3gbhiR47RU+zyfN2lPIiRg8PyyfP27HR41Houppy8rwd0SOThvX9zCbPVdcb
1t7JuM8lz9vRNPHKGfNpPPK8HVZVLDdbJw553o6xzekPZmixyHP1z49xyNte
Sp6344Dxo4dtEfnkeTsqulk/kgzKI8/bMen8mQu9OQV4oPG8HUus9T+kCMvI
83asOO9wpmgdC/00DdwOWY9nOn89riLP2/Fw0Lray35V5Hk7Dq7aa9HTjEWe
t6PwosWlow9LyPN25Id67e6mWp8Oz9uR/Xi+tZHrT/K8HfMullzcZPadPG/H
7ZDj0SdtEshzOdqzv81caZNLnsth5bjvuUdPJnkux6R/HB47BHDJczlC4lhX
T+qKyHPVdelns0/DxOS5HLutTzwzvy4mz+WoGqxdlPm5hjyX4xdvY9+epwTk
uRzVZ6Vhm3K55LkckYzfc0e/ZpPnctya1sDg21eS53I0hh0KdBnAJM/lOB+S
eWawdQV5LodOzKW7k59UkOdy5IesDGpdxCTP5eDeqi9LZTDJczlG3Iy3DztY
SZ7LMfXZXfMv/EryXI6st/P7SpewyHM5Evy/HOu3j0WeKyDJevzH24Us8lyB
LskGJyNjK8lzBYrvj3g+ScQkzxW4mBBzfdizCvJcAYfXtSPDdTo9V+C239Fk
XY9i8lyBx80TrZYyC8lzBd6ZbXm406+QPFfgzpNFK8c5FpPnCrDijOdE2ZWT
5wpYjc2xshNUkucKDHpuu/Q1q4o8V0D73kXXYWt49HmfAoZfeWbjz/HJcwVm
xc/980Y/PnmugPR2xcdjU7nkuQJN+dOPeh1jk+cKDHDnmtp6MMlzBa75h+4p
2lJKniugtQ/OjMRC8lwBdpBbdlhUHnmuxPjtVTv9RuWQ50okBhdz4vemkudK
xP+6fjFzxQ/yXImnHnGjqkb6kudKdJkWP8CoXIs8VyLq/ucdvq/fkedKnJty
OHlbayJ5roTe8qaT3t/zyXMlgsu1FbbrKslzJVo+LlvbqpoPHZ4rsaGx15CZ
h7nkuRKHTu9f+XFK598XlWiPWMiZVVBBnitx+uXvKfobCshzJQaIr4cNjc4h
z5VIH/afg6N1p+dKmD2SNV75XEKeK5HHuWL1aHbn+VwJj9Xdtq7+l0+eK7Gp
2+AYj4jOv08qMW6z6ewP2mL8PxGtXQA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{Automatic, 313.52339094215404`},
  PlotRange->{0, 1},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.498552545492745*^9, 3.498552610128856*^9}, {
   3.498552641047259*^9, 3.498552696405005*^9}, 3.498646465375685*^9, 
   3.498647107282617*^9, 3.499251671654292*^9, 3.499251934653431*^9},
 CellLabel->"Out[67]=",
 CellID->459456185]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["MediatedTensor", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.499251701952461*^9, 3.499251711493058*^9}},
 CellID->1757724783],

Cell[BoxData[
 RowBox[{
  RowBox[{"isMed", "=", 
   RowBox[{"CoherentClusterEvolution", "[", 
    RowBox[{"2", ",", "exampleCoord", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{
     "$UDDTimingList", "\[LeftDoubleBracket]", "10", 
      "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", 
     RowBox[{"MediatedTensor", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.49925171892131*^9, 3.499251732584196*^9}},
 CellLabel->"In[68]:=",
 CellID->201942149],

Cell[BoxData[
 RowBox[{
  RowBox[{"woMed", "=", 
   RowBox[{"CoherentClusterEvolution", "[", 
    RowBox[{"2", ",", "exampleCoord", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{
     "$UDDTimingList", "\[LeftDoubleBracket]", "10", 
      "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", 
     RowBox[{"MediatedTensor", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.49925173686393*^9, 3.499251741775344*^9}},
 CellLabel->"In[69]:=",
 CellID->426583994],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"isMed", ",", "woMed"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"isMed", "\[LeftDoubleBracket]", 
     RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
    RowBox[{"woMed", "\[LeftDoubleBracket]", 
     RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.499251748487305*^9, 3.499251799199753*^9}},
 CellLabel->"In[70]:=",
 CellID->938576960],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxd2nc81d8fwHHJTlYUkrYWKkXbWwtJFJFKpZIUSRKSUmngW0p2RZI2MiJ7
hYyy93avy8W197p+6Pie8/v6p8d9qOtzP59zzuscPZeeu6p1gZWFhUWBnYVl
6s+Zr/GJqa9OGLlzOd7SzRjG/u+1zb+vd9ZpPvUyu/+f7zvCCHodLfmw7Ui0
C5T+399/ASuG/r5euL5mBcc9D6CvJf+9N5hUdE+/rsgd1Ka+fwXVmnrE+/mB
0lLZkanX6lucdhvQ/CHn3Noy/P4BoFXfKjz1et3j+ZNv8Q4MNzIdR//9ee9B
9epOpfbJ1zxl78x38XwE98SqnNh/f/4nKNMb1JCYfN0qtZErSOILDG9Uf6s/
PnM9X+FRT9jphqFOyLJKfCO+Phji675Kn++Yub4QuM5o3VtQ1glHJy8+bUko
hMuuOsD9deZ6Q0F50IRWodcJ+/4xbR79HAZLNDovLP/Tga4/HGQbcmBtdzts
mv6KgFUn5yXzhzHQ54kABXezu2/Z2mB51fDkFX+HIdWGyg0jdPT5IuEer6jg
+uQmmOeQnP12fxSE7vrN8eZTI/q8PyBE4Zfw4qVUYJ1+wx/QljCy9vRrCvr8
0XCC1/L+MzMq9BQeOiegFwMRimFunYE0dD9i4dZSk1S9Jjo02AqHqDTEwvpN
vyjiVxjo/sTBiYUhGhJSnVCwbPoCYd/PoI5lAzP3KwE+L28ocJ/fASlTV9eb
AJvW978JNW1B9y8RbPmNKEuiKRBqYezabpcE1uuXfJYfKUX3MxkC1kmamjzN
gMOTd0vIIRlWi9HkHFh/oPubDEt899yRt0gG1ekLTIGQy0OpJYsK0f1Ogc+Z
189s2lEPSvKnYw/wpkLzAS8OHoNmdP9T4fnPvSltmxgw/Xb5qaC3T+n2W5mZ
5/ETLs3jjt7K0wp/h+9PeGlf4yZcQUXP5yfw8Z8LWsNXAaumbteJNFi4WKqx
62wmel5pINq3rKXweAgsnvq4kungv8kw/PxKa/T80oGlftWcS+E2sGD6hqZD
OUVPxFjUCz3PDNgglaUtq/ES+GTCfTs/ZoDSbDYthtkj9Hx/AQtX9C2+hdow
eXF7/zH9BVsfDqmJZvuj5/0LHBbs/CDKmwLMYpsWqY2ZEO3EpZ+7owg9/0xI
rXZKHC2rg4HV+s9S+zNh2/I3wXd30NB4yILV5UdXzfnaDB12MHkHs4A3+c8V
G5UmND6ywZb2+46FYwM05U8NgGygs+u2CWmVovGSDZeUDiruDkyH6du3NwcM
tp1lvWIfisZPDkiM6Fo2h3yBkqnL4/oNot6sL7vXxaHx9Bu8kyIreuUz4M/v
6S84vTpt7O54Fhpff0CHR0X0MHsGpC+ZGkF/wN9z5YkbndFovP0BLv6yQJF9
LyHB0k2UTTcXDNKTBrOl76DxlwsbHMR9Pehh8D1z6g3zYFzRRWr9RBYaj3mw
K/34zp86ZTD5cA131OXBeenKwUPi9Wh85kPa4EKlyAQKaE2/YT7w/jKlGvpR
0XjNB+ujxxQjU6igMXk3t33PB8kb8nJJVo1o/OYDc67OhnSLJlDjnXpiBbDF
9UizKbSg8VwAtYfLD+TptIFyVO94sU0BFDkYcA40tqLxXQDqbu7e6yhNsGfy
zZZVFYA+l8HG6+/q0HgvhEvtoS9APQ8UpwdMIUik2s7zsQ1G478QlJr6O7hv
PIJt0zegEBZypCcYxiWj+VAI2qbjTV1C5TD9dqxFMJDx/GFvZyOaH0XgeMz2
kotlG0wPf8MiyOO7JOu8rB3NlyJQLlNZK2XbAn+HbxEEPgr+bctHQfOnCJqM
/Bc4PyiCNVPDb3UxLFPR4RTfEY/mUzHYvFm6WNnoHaycHuDFwCHw9eF49Q80
v4rBwsXRfq5ELiydfmDF4Gy2dWmObwWabyWQ8DP3cMlIPSyaenyaJSB9Sn7C
nYeK5l8JvF1fH5s3QQExNt3JKVYCjX1me496NqD5WALOHgkid1zrQGRyNNsK
l4LJLVahgrxqND9Lwaxch+pWWQWCelN3sBQs2szWZnHWoPlaCvqMmIKiFfUw
/XgrSuFBpqtraCAFzd8y8HriV3jlEw2mb9+OMriZ6S6k70lH87kM6Io6tK53
rTB9eb5lELBVIEtDsA3N7zKIMFn6meV+C/yteTk4iQcOWO9vQvO9HC7yrYv1
OE2Bsc/dkzO6HEQXvXy33aQWzf9y8E/uU+0Xr4ahqfqmlYOxs05gVF8tWg/K
oZpzVqjzIir0jU+9YQU8poumeuQ0o/WhAvakPLfbPZcBXR8zDm5xqgBOZkhz
Q0IHWi8q4PYDk4oNtzqBcWRqglTAHcEY5o+IDrR+VMKTV9nH7LTbgT46dYGV
8Ceta+kZYKD1pBJOaMRdpzS2wd+8VkIkT4VB3TwGWl8qwflh1qxlMgyYHs5C
VRC7lO/F6QdtaL2pgnlb1DaYJrTA9HCxrILfKXJqSwaa0PpTBX3zzFn5v1Hh
7+OogjgTjsj1TvVoPaoG+8+GPtWzqqFo6uNuq4aS6y/b1F3L0fpUDWwquhRe
n1LIm96+VIOWaoxPVEAJWq+qoTy8Z9h8XQnkTC1H49Vw1qbzQV1WMVq/aiBj
wpGnc2sx/Do4NeNqIMikyfq2QRFaz2og6fe3+wpXC+Fn/9QDqYHlWQm0ypEC
tL7VwP1L0XuXTBRC0tS7raiFC2L97r5upWi9qwW7yhNJ8no1EHdgagTWAt+c
/bRWYypa/2rBynqW5+YndJheXlpq4fepTg0NdwZaD+vgyes1nPGT+5Pp6Xuw
DjL0LEwywtrQ+lgHMsmsjZrsTTA9PULqYM08tbrhsGq0XtZB9X19AYNHOeh+
1oP6yFFV8+1BaP2sBxaXPSph623R/a0HAQlN5p+Cb2g9rYeKj4mKqXcy0P2u
hxsLTMUOixWi9bUednvt9vZZXYLufz0YL7eaXzPZt7/rbT2Ybrmubb0rBz2P
etjTp3561a94tP7WQxpdlPOe2wf0fOohmanzpbDMD63HDdDFWC1m9vkbel4N
wJM3vNDwZxxanxsgJ2NhfsTDFPT8GibHbxDDJzsZrdcNYNDY7iqRHIOeZwPI
CSqeVg4OR+t3AySmOvbMnYhAz7cBmj1f/XEoSUbreQME2J2f827pH/S8G4D5
yG7X5cWlaH2nwCEB3WWp32rQ86dARd2b88dVKWi9p0DAiz2L59vS0HiggN9v
k3N94XS0/lNA14F/31h/G8ROjw8K6A+ytSZFd6AeUEB4ocLSU6Mz+10KXHE8
m8WZ3oH6QIHeO72Lzqe3ovFDgdYfkT3mcY2oF1SYJ+Ol4xVZjcYTFdyftTPf
6BWhflDhdMhtI/YL+Wh8UUFi6Yo7bPeKUU+oUCTlcaY3ugaNNyrc3/PGzVWx
EfWFCgV/FiTe/EJH448Kp/JfdIrKtaHeUKHquV+pL7MNjcfJdYxmdJs5a2Z/
TYXsN8qH+VQY8GVqeRRohENeqc/mq7WjHjUCq8DwsGRsB3yaWt52N8K147/j
mSmdqE+NwPb0qTjHh074MLU8WTRCl9fb/RTNDtSrRvDI9izOMGVA4NTy8q4R
Rh5kDQf+u59vBMfAkKAfk/cvYGr4FTcCV1hOW931NtSzRpDdFrn8SW0b+E89
Xg4aMA4fVjayakV9o4F5/gjDfVcT+E3dvi00eP3LJ9V6cR3qHQ3M9oi8VHiW
D6+nLs+YBuG0XD3fyGjUPxpoNT8X07wXDi99pr5o8O7Wjt8etGzUQxoopYpI
tgzUgPfU7jubBns1f57y4KKjPk6+Vns4ztTuAM+9UwOaBuc9/F3XaXWiXjZB
QW3WD54XreAuOvWGTcCwP8/q29GA+tkEnRIDHJJOBfCifSoYTdD088DeTJ3v
qKdN0BfH7SI08AGmnob+syaQuucU0bEvA/W1CSL1Qo7c3FoJf48HTaA9zh+3
dQ0N9bYJjlzj5BXsbIXp6dbdBFzAC1JJDNTfZqCniYYnXG2F6eG8rBk2+nW0
Di2b6XEzrH4XoL1PqQamh4t2M2w3PZr8z/oC1OdmcKWtdU+7mwzTj+NhMzxZ
6REQVPkJ9boZzG+eNT552A3+Hs+aQS90s2xhkifqdzO8FntkZ9gZCH/frhkE
SgNcOtlDUc/psGHvJSnd0e9gP5VrUTqYxystkrwRg/pOB+8+yeXVdxLh9vSM
o0ML26YL7PGpqPd04GHKUJYn/oJbU6uVLR0iNbjKua7mov7TYY3vV+m1W4vg
5tTyHESHD87CJcM3y9B+gA4Bv1+H3nCuAuvpXNHh9yOdneelZs4LdFibVLC4
eHJdvDG1vPC1wLx9XB9pGRS0X2iBpj+KO+rvNcL1qek7ua/lid0gcku3Ce0f
WmDc2X6OyeTnvjY1PcxbIPNDm3P1CzraT7TA+8zwl7e/N8PVqeH3tgUe+l1n
t2elof1FC3SrxQX/Kq2HK1OPt7AFum4syOo1LUf7jRYQGPb7fJKnAEymbh9b
K9wrePxYrT0H7T8m513lqIK8fD5cmro8+VY4HOL6ZV9mKdqPtMIqv/PyD/tr
4aLR1Nfk95dqBvd9oaD9SSs4LimnHPenwoUdUwtqKxz39lq+bagB7VdagcEV
eYReWQ3TOcpsBbV73c91BErQ/qUVLrOK39fMy4Pp5X64FZa9DmnrWJiH9jNt
8EXLhMNMvBiml9N1bTDusaF2hVMV2t+0gctxy/Lggw0wvVzpt0FwdQjVdS4V
7Xfa4DDfsaWOSykwvRw8bQPTbw8fpkEN2v+0wZCr3vcvS4tgeroltkH73oSw
qwtS0X5o8t/Hby66VOAP08O5sw0MWkw2C+faop4zQD2Cnx53Lhz1nAE5lWu+
+9/IQT1nwNCdK6ZqZRWo5wz4kOJAn7ebinrOgHMc76uKYumo5wxIOyREPXOb
gXrOgJRHxu0dczpQzxlwfvj2WIJqO+o5A2KM4tUKjFtRzxnwdbaQ27VGGuo5
A4w01uREGdejnrfDOf/N7j9cS1DPJ88pDPf2zs+/UM/bIW1UIsUfIlHP24Et
Xv7AwUdfUM/bwV1/p3iX/0zP28EvYfFzFo3fqOftYEbtrEgUqkA9b4ej4rse
r7pBQT1vB55L+T+TXjWjnreDwbvjnz5N9uBvzztA/1aEXo0aA/W8A4S9ONKE
k9pQzzsgym9l4SqVVtTzDth3I/j77FktqOcdECPTOOKVQ0f7vQ4QWXDEPKG5
BbZPB7gDdjk6lz6tbkM974Awu0zF1yHtqOcd4PLxu1T05Hr+t+cdcPLpO5kL
k/fpb887IfxgA6fy6VbU887JzzlXNySoCfW8E3Q3xa3x30lFPe8E69hLe6Q4
GlDPO8HCdLgk36we9bwT+A2TBVtXN6Ced8J15fDzbUYU1PNOcI1JXXdUmYp6
3glMNXu1CzuoqOeT39+pvFdIbeY82Qm9F/4cXts/s3/vgtpkdvdHTTPnty4I
mRdjdeRzHRqvXfB+zRyLp5n1qE9dIBAjZ7j8JQWN3y64a3OT60NNI+pVF6Rm
Ba2KkG5G47kLBB2D3XMPtaB+dUG8+Loh2uY2NL674Gcxy/yYyXE5Pf2tuqCl
YtyXPnl//473LvBrvTJhc7IT9a0LclvzljWXd6Lx3wVp9fWDn3I7Ue+6oNqa
+x3YdKL50AUNA+/6dk/e97/964L9FZsTvu7uRPOjC5oOcn+xeNSJetgFs4V0
jO0vz/x+sgs2KPp+c+DuQH3sguhb+Quv+rei+dMFby9W8VfMpaFedsMxvjU1
ilCN5lM3uLsbfIqr+YP62Q3C8f77uAZ+oPnVDcweOy9GYyjqaTfM1ZrgEBZP
Q/OtG85c2tFL5yxBfe0Gq2wH00Ua9Wj+dcPAcVuFJZ1U1Ntu2G18pUdlcl/3
dz5Oft/z+ESkfR3qbzcYecRVOpUVovnZDQo/TR0rFsShHncDy5oa/RRvOzRf
u6H4y8eIyIQPqM/dUHErVukcew6av93gph+mvjaqGvW6G2IjzykbX6Oh+dwN
r5a4JzddakH97oah3YeX2JfS0fzuhvevnZ7VDlNRz3tgK5+5PZdKBZrvPXAw
+b61dGs66nsP1G/75Vqq7I/mfw9wKT0P+z7HB/V+8u+fvf/8sflPtB70QAqP
mtaN7jLU/x6wijmRkMvSiNaHHgh17d5nldCK9gM9IHYgMVX/n5nfP/eA9gVu
G7bUDrQ/6IFcPpcaoaSZ80APSP1wv+b3tgntF3qAlX/imFxFPTof9ABdv/up
xMUytH/ogcuKvmm8ovlofemBoR95wpo/MtF+YvLvhx8yeuD7C603PZDcPadC
figb7S964NtRtcZw3Xy0/vSApfk82rLXRWi/Mfn5BJ5TZGeXofWoF4YGd7pd
/laJ9h+9cCjtyM/rA7VofeoFbXOpUV+umf1IL9TdqMx9zJj5/VUvRB+Wck0o
aUb7k17oesN9/fbuVrR+9cI+Fufo3jdtaL/SC75zPfy0H878vqsXejY2XBAt
bUH7l174uWP/guLqJrS+9QKrxhmez4pUtJ/phWXRlQ49fnVoveuF+a4Fw54f
K9H+phd23NlCrXlajta/XuBVvHpL3roC7Xd6Ib6Ry35fRjVaD3tB6NKerYyo
mf1PL2xdzZp7bMPM+tgL3BM6Gw0saWg/1Av0249f3DzdjNbLXlgfsPmpWTMd
7Y/6YMuC4JGzwy3oPNQHv+w7s35otKL9Uh9ceF+b8cCqBZ2P+uCx2lYuKnsz
2j/1wcau705pFAo6L/WBMg8z3XhWFdpP9UF10QHLn6/y0PmpD4a6E4abjePQ
/qoPvm+u2mnNEojOU32gmtfOXiUQAtPbozt9sKntsNYxm5/ofNUH/L4X5r2u
KIDp7Y1XH3Bt2becPb8cnbf6gFL1VK1spArtx/qAo/N2J+1WJTp/9UGghmag
hUcJ2p/1wQcfc+V1PPnoPNYH5ZVzgypdstB+rQ82RHa7jfZno/NZH9y7tFqM
P6MA7d/6YMH79rBxqzJ0XusHO6+tm/nCq9B+rh9iOW1Y5Kyr0fmtH5QfaS67
m1iB9nf98Eyvb+819xJ0nusH9+Vft95YVIT2e/2gLmwQ2jBYjM53/XDfabn9
sewqtP/rh/MOJt1PaynovNcPDu+Ori/3aEb7wX4QH8o4q7OkFZ3/+sF/ROrD
qZMtaH/YDwOuBW68FjR0HuwH47EF4zZP69B+cfLnv2pMCvcqRufDftD0e2Ua
disb7R/7YdGIudjr4+novNgPulz58e/P/EL7yX44p5U6/96iHHR+7If6L3Kr
2tRy0P6yH75yBzrmpaaj82Q/tHL1V7M+iUE9HwBTyySfmOcfUc8H4PXHAJ1X
RjO/TxqAh18tsiXdf6KeD4DDod4n56qLUc8HQP57n/CSyfXrb88H4ODmqCWn
hZpQzwdAP3bc+702HfV8AEYlZX70Tp4j//Z8AFj37r5xZR0FnU8n369OUnX7
1zLU8wHQpZg6X139C/V8AES3tip3G39BPR8A/wOfpKwe2KKeD8DqxS7ZBf2B
qOcDQGuoPTnfLhn1fABu2XxL1JfLRT0fgA7NCzufqJegng/A4g0i1xq/VqCe
D8Ba4aXLHiVVoZ5P/nstrpSD9lWo5wNwmfeX/RBfBer5IDDEbbZZBhWjng8C
7Z4zxfPjTM8Hoaw1NnhbUzLq+SB01R+Nssn5iHo+CHf5l927nHYK9XwQyq02
XnXb5Yl6Pgg93j/igqQTUc8H4exVtkETqULU80G4n2C/sONJHer5IMTKZk30
+zShng/Ckl252ovXMlDPB4G37cKBM1qdqOeDUEz1iLOymvn/1UFIfv9Svi+A
gXo+CL7BvjtP2Tejng+CJ7vxqTcLG1DPB2Fzg1uUxLES1PNBgPdldtuF0lHP
B8Huc9SW9ZlfUM8HQemixWDJvruo50Nwt06653q1H+r5EDjeec7feTIO9XwI
bOfeKaub8xv1fAi8t362cREpRT0fAi7VF5uSomtQz4dA7w/fUe7RBtTzIaB9
jFd4tHqm50PgLs7gBFMa6vnk37+RIVXJ3YR6PgR163ksZS42oZ4PwbJ38uJm
TU3oPDAEZWrL3zISm1HPh2DWP4tmC1HoqOeT738HUsUm1/+/PZ98f27ON0N3
W1HPhyDYLU/OhNmCej4E2XtMnW230lHPh4Bv/1I2k7M01PMh2BusZq4rRkE9
HwJundiCg49m/n9h8ueLvHVwuFqFej4MAkE+tPbmKtTzYeBRYVhVZNShng+D
5nbrl9kNMz0fhifXKrOM+2mo58OgP1bN/0KGjno+DN53O4Slx+mo58Nwbm6m
gv5lOur5MNjNPlUWP96Eej4Mqmppn21taKjnw/BzWMtK7Hoj6vkwZLPWBXAJ
NaKeD8P6GJ0FYb1U1PNhYJRKxG0/S0U9H4b4zfaCUkENqOfD4JArUKKxsAb1
fBj0+PqOd0UVo54Pwz3V4vl7Gn+hng/Dd6F7DnSd76jnw2B4VWaW2A9/1PNh
sKH//qm39Bvq+TD4HVdX1libhno+AnE2l1l2Shahno/AwOvOPaq0atTzEdiX
80qUHktBPR+B8yvf5l/KoKGej0APb6HH84vNqOcjsEZ1sfL+ombU8xFIpyZn
y1xvRj0fgW3V8adPRTShno+AwbY6ifl1NNTzETAq6DvnIUxDvz8ZAZ2IhQu4
1RtRz0cgkPcP3fHizO9TRuDaoa6PNXsoqOcjcLptZOfupHrU8xGYfc6n67V3
Der5CChkNeeN1Jejno9AhchQqPDbItTzERD6sUqBJe036vkIiOzater6t5+o
55M/v+J5wYeUWNTzEdAydenzUI9EPR8FF5VD2p8DolDPR2GgkCdPc1M86vko
8JrmmG0YTEY9H4Uyk4/Gpk0pqOejsGL9xVaVj0mo56PwPUFOxOVFFOr5KITm
1ghuWvwF9XwUPu0tiDJ1fod6Pgq/ZVt0rghHoJ6PAu1pb8DcDRmo56MQoMZz
yI6jBPV8FHxnne67OHne/tvzUShPm2/9eYKGej4KsX8eee+raEE9HwWmRul6
H5Y21PNR2HkzS/PylhbU81Hoe+PXJiNOQz0fhTn3hAq2M+pQzyevb/OKwd70
UtTzUXAPf5Jf4FCAej4KypZs1x/6FKCej0HljmvDu6NLUc/HQCpdrm57Vy3q
+Rh4KN1MNwyhop6PgXKmq7rf8ybU8zG4pkjxVt7QjHo+BvuPWfHFX6Ghno+B
T8fV2eoTDajnY5AWmFi282Q16vkYXHqc/fRCTCnq+RgoBIR1pYmUoJ5P/jy/
RTKCzWXwfLrnY6CYZUbV6qhBPR8DCEq5TdGiAP/0BB4D/vLsskj3RtTzMQhe
GubU9q4R9XwMWq2WW3hJU1DPxyDLtrrJ52kV6vkYnGkIijRyL0A9HwN3kT9b
v17/iXo+eT28F14qysahno+B4OQNX3EkDfV8HDxspe/eOlyEej4OQRnXshfM
qUc9HwdrWevFcSFNqOfjUDSb54zoXAbq+TiYlt9L1hPvRD0fBxe3ueubHTpR
z8eBa5j9SkZQO+r5OAiNbPV9da0V9XwcxOZQjlEKmlDPx6Hi2Vt3uj8V9Xwc
bs7dH8mt14B6Pg5Pd9W79QjWo56Pw7FVP/j81OpQz8dh7SyNa8Jedajn46BQ
f/At9+561PNxeB2vokovrkc9HwfDT+Lby40bUM/HoaP9+418egPq+TiIrLrj
MHcvBfV8HFRXy8bPu0BBPWeCgHrXiOsuCuo5E+oK9u17ktyAes4EbtPLKyht
9ajnTDBhMJLPetehnjNB767+2kG2mZ4zYYhv01dz10rUcybY9Lbs4p5cn/72
nAmPeF9GJwaWo54z4dRAa9kO00rUcyZ4cK2+aXG0FvWcCTuzDdq02xpQz5mg
W3d+lSO1EfWcCRNUtluvNZrR7/uY8EbLzUHkFh31nAnU/QbMMj466jkTHtz/
YXhYtgn1nAm5lzpaNcyoqOdMYP3E4bnGtR71nAkqBTZqK/SqUc+ZMK/17ep3
aeWo55OfL8W/9X1cCer5BLRWBl7cK1mIej4BUcURPbwG2ajnE2DXocydqpiA
ej4BQ9SAAud5b1HPJ4DlLvsn8/2sqOcT4NifcaYj/APq+QRspvWdnT8rA/V8
AsLUW4UNkktRzyfApeJbwDXtBtTzCZDZd+G0vDkN9XwCXv5ZdHn75SbU8wl4
layU8nbdzP8vTsBFE7rx1uI61PMJ0F/vdPndkTLU8wlwTjKTNk8oRD2ffC3l
VdujPtPzCXAVO1qUEFqFej4BoWd/1t/fNnM+n4C2idO+E/501PMJCA686xka
O/P/kxOw8lrYnXXsnTDjNQf+4zUH/uM1B//jNfv/4zV7/+M18/7jNRf9x2s2
/sdrev/Ha4pq/b/XZJf/f69Z0fb/XvNuS/v/ec2xCF4n0mvyyNv8n9csDo74
TXpN/Z6gI6TXZPZKfia9puh+2euk16Rd+HSK9Jo/fG2+kV6zxrByGQ/hNX+1
/rKrIrxm3oLXq6QIr3l5juVXWcJrLg0vVp9PeM1blmZXvhBeU+Drr+4dhNcU
TaWY7CC85iJtl/4vhNfM+diwdzXhNSO5diw5R3hN2txekyeE1/z2PnA7jfCa
tvV71A8QXnOztNsQD+E1f6/XPC5EeM3C/lT9lYTXvHBiY9pHwmvaiNbHFxFe
M0YhCTQIr7lpvcK1Z4TX3PNajbuV8JpC1MazKYTXXN9o8YV6DXtNzbOBR24T
XrMiq3jX2HbsNTkOeXtUnMFe81fmdsdCwmtK0Yb4PhNec7vMo8UGhNc0jx8J
Pkx4zRSJWJXPhNe0vhFTn3AOe80g/tl/PpzEXnOJ7EWVJWuw1/Q3OzZh/A17
Te+AOqGTCwivWSZ6Me0Q9pobwhUXHblKeM1nP72+iGKvybKBESuXhb2mZZfp
Y9c52Guy6ApuvUx4zT+hNDdXwmt+03yvcJLwmo1tX0bZCK+pJ3/+iifhNT2g
zewr4TU9XOY5vSC85uGRn6ms77HXHCs+XzxBeM0gS2f2FYTXFNK/HD2b8JrS
sTsSHxBe023V7jN6hNc8ZLmS7zbhNaUfmMes68Je8/mxF9+WK2OvycIbIpiw
BnvN13o9qfebsddkBpwN1GZir+k8ujT2EOE1kxUHLBcTXlOMo93Th/Ca5s/u
t+oQXnOEhy0okPCardxWOf6E1/wtG/7dm/CavIUXPXcTXnOtQyJ3IuE1Wcvk
jgrTsNfMELucepvwmr5UNfqxQOw1V7sFXug4hL1m+VMjTbiDveaGMLOW2+bY
awp/yyjrjsFeU9VHnkEVxF6TT+XiMSvCa3aIXGxUI7ymfJpmtg/hNdviPDTv
EV5T0LWJdZzwmic9dLRtH2Kvac5/YDbswl5zpzm3pALhNaOUbDmFq7DXPLxS
atBXHHtNbh/b8YWE11zl0n3yNeE15R2kTj0gvGbZ60PCDYTXVE8922JNeM0m
b7PLmYTXFJHramfPx17Ts2ZtzAfCa8r3196KIrzmEbOXmdGE13Tp3/PiMeE1
X80uslIkvKafW8ZxOcJrGuZS+ysJr7lMfaHrMcJrem5tfLiG8JqqHpwCkYTX
3KKVJ5JPeE1J3cakG4TXjKk7p15IeM01FkZ1GwmvqVD0IHEV4TVtT5lckiW8
5sCNXRw9vNhrqi4uVokjvCZVSaZVjvCaEQX7+ooIr8mRNRLnS3jNnSYSFlaE
19Q3yB5sI7ymLX14DZXwmhm6RlkyhNeM0r566DbhNTduMRp+Q3hN15d6t88S
XpPJ9kr3MOE1LSasbhsSXjP26fI0SVbsNTuY5nsuEl7z2E5rfm7Ca77eJ1j+
lvCaIv9Y8x0jvOZGSfPBTMJr5rOulG8gvGbDrAUxNwmvec5gjcUWwmtei7ni
W0B4zcxV/U39TOw11dQHOHYSXtPXYrzb4xj2moMb5xs/IrymcbvUvZJ/sNf8
eGCXzQLCa25cOfQyh/CaljeNuVaFY6+549ocWifhNYOUjq46H4G95qLdHt3h
jthrmgvr/5QB7DX9Z/tt1liHveZvSZN7Z/5gr6nC5LU1uo29Jr+noRtFFHtN
JZV3q98TXvO4Wa7hyZ3Ya67cVri5ThF7TbtVDDanLOw1yxlBX597YK9pvETo
2XAJ9ppB4iuZ6R+w1ww5t5FvXSr2mttyzOY5EF7T1LnGs57wmh0SZ7LYUrDX
3BCcf/094TUrlfhV5ZjYa67O8zG5WIy9plXNDW+BJdhrPpFc0fxCEnvN9/d/
FDNDsNesyVjIzU54TYHfjNqMm9hr7h1THH1LeE2db/pLvxJeU0P7c/9Dwms+
P29bc5zwmpfmuv/QIrzmi2pV4RHCa/7Y+OzAxnjsNSdU57cNRmGv6exQyW52
HHvNJ3b1grMIr/kgYdOeXXex1xRiNzyS9AN7TeU/sk9GdmGvOVA8J12I8Jov
CjQWdm3EXpPvj/3st4TXlBbVGOJhxV7zgbhdECfhNQvr8vYOHsBe08kr0WY4
BnvNOSaqcp2E16xrfr9NkvCaoS4nNkkcxl6zL3vbEOcV7DWbLteG5hFeczOH
6sEUwmvylK8orya8psTzbXGfCK+pRbOWziW8plmRsq6OIvaa93l02s8vxV5z
6Qnqu/7n2GvGa4tIy8Zgrylqkkf/bo+9ZsusLk4NCvaaGn/UH73uw15TqyGG
24UTe02+1FWuDoTXpO/+EH6d8JqlaYW9E4TXDPzp5ULtxF5TcLFIw7F/sNcs
DhBcueIE9pqWWenZrT3Ya0Ybbrnitxt7zTtGiRZbFLDX3O/V2yK3GnvN+ON9
/9zswF7T7Gz1+BLCa57gX9G03Rx7TdsfHXfTlmOvecJ/u8jIbuw1V6ub8o5s
wF6zni/i46f72GtuGD/Ks7sWe80lLjqq549gr2ncdfGfHQnYa+q/5xvRa8de
s++Z7fxyNuw1c9fNjlAawV7TzMf5Z8917DWzHTbUm9zGXnPTXEqqUBz2mu+K
WURa4rHXjPer6nO+gr2mfXjoft0t2Guai6otX054zcW8vFe/OmGvmWn5yOXz
Suw1r+cfXHiL8JqUCw/3OBFeU1RsK9sdwmtG3np9TYLwmnfP5pRKkV5TNWlZ
PuE1dzEMMhMJrxkW5dHCOxt7zdt2Gt33y7DX5KqxsTpqhr1md8zE9zVzsNfM
U4q/Kkx4zU/5xUFrNmOvuZO9LuRlBvaa/OGLTX/3Yq8puuKa5knCa94OGuaT
I7ym66wTMvcJr+mfxyfArMJe86hZUuwpQew1XzyRYNuej72mgTLVRY7wmrrV
35tPiGGvuYDV4X3OY+w1c9fWMFYSXvMOZ8iiS4TXbBT6FVNMeM1GD4UVi3Zj
r5mfH31Aazn2mnaej57uF8de8+54jvSSMuw1lyzbOhKRiL1mB//4B/bT2Gte
3P1id+M17DXrxBzmSZZgr2nEb3Z5jhL2mqpvFviyE15zPPLalRY77DUd0/MS
qwmvqeAqSuU9gL1mT+E9pWuXsNfM665JUKVhr3msvVc+8BL2mlKcPB6Wbthr
GsnU3vIOwl7TpsHe+tAe7DW3JqxgEX+IvabBoauH2H2x15wHdZ8i1LDX5Jjl
K50ggL2mlVq1urQl9pr9LCESIy+x1+Q5WCmmQHjNB/wdiYmE19ymNCwqS3jN
ZSk/jA8SXnPtCuZpdsJrxq98et2A8JpO/Xv1dQivSecrzBInvCblZLbmYcJr
+lgNs8cRXjN7Pk0+hfCaDndDNSiE1wwUlyzXC8Ze8yrfrnvLd2GvCcpOPwwI
r7nY4Xt7CuE1dRsSzEMJr7luKc/z74TXjHQVfqBMeM0B3SdDLoTXDD7UTDEk
vObq6rWKDwiv+eR3wrVZzdhrdsQqVxoRXvOs42rf84TXPLFoe0WRD/aaaSph
z/cTXlMxxmCFFuE1Fx4tfW5JeM3MVSaH3Amv+eqgw6xrhNe8ftBlwzfCa0pr
JJ7VIbxmSNqyA9WE11Q58L7nG+E1rVPKj6gSXpNZ5rlxJ+E1dW8YinsQXnMt
+8pDBoTXDKUqx74ivObt11EK44TXnJsXc+70W+w1M9jy9q/lx14zonTrCfE9
2GtWJxo4alOw15Q9R13GP4K95h2RyisXKNhrfneL/TprPvaaas60yt3s2Gvu
OzeYwHoIe00vdp5jER3Yayoxf6jFEF5zsG7wKfMe9pqvv53JV6nEXrOVY47Y
6GLsNe/umnXgSzj2mqr7jbTehmGvefxLm7XtRPa/XvNKgMl4QTj2mg8jmHkr
zbHXvDGa2HOf8JoZ+yXYJMqw1+Tm716tNIq9psC92fO11LDXtFnlpHO9E3vN
4ty8pAua2Gt+OnNmffW4979eEwb7i61NsNc0oCe3cnZgrxlpuCZ+2QT1X695
mbFEe1889prKfTJJTc7Ya7ow1tYdIbzmgL6M8yDhNdPLbJ7kBWCveeNZyVWD
Suw1FcfKdw4aY68ZPVeHIiWGveas80POLNHYa654HhU1h/CaUqXZ4gKD2Gt2
y1myshBe02a+lPKVV9hrJqVZh1mxYq8Zw+rV+yoEe80l55+o2PRjr3k5d34E
B+E1H+g/PUJpw17T+a3W5hWE11S28HKaR3jN6MC2J5WE1/wTrzjXj/Caeol3
wlMIrymg8KAloQZ7zeEMvTUBgL3mQc3ccE9/7DX3Fbabe37CXtNArSFLwAV7
zfz3CrZfrLDXXO710H5zOvaafsdjpZUJr/nNaiuEr8deM1k8PiTnOvaab/m3
y4ycwl5zB2/0ZXbCa/YU/cwRJbxmbnrX5g+E15Ri1b6VTXhNjhrvY14c2Gtu
+MU5l0rFXlP8NOPscjbsNVkTDDxZ3mKvaV68Nk7RHHvN4tDPwUNs2Gvm+5rr
efFgrzkGDnI0S+w1WRpos8PLsNd03PDyVUQu9pov0hs2vyK8ZnFzvFu0Hfaa
5qkr5+d6Yq8Z2y8RoTYHe805qQJSes+w1xw4kFuv0Ye95rnN/3ywScNec6Fv
TvPxG9hrej/hzRUMw17zwkdtB3nCaxb+kPmgmYS9prRLiomhB/aaiZXh69IJ
r7nWY12gEOE1o+fU8NzNxF6z3vXgBosa7DUVhtx2sBFe0+T3IzNpwmuuoGfl
MQmvue1hEu++69hrXtz1T8G259hrjqiMbmvwwV6zh7myrvE29pr/eB0SKyK8
JsevAlM+wmuqrXX/5EF4zdHM5F+e6thr7rzEUVybjr2mxDc7M+0X2GtGe/5z
9asn9prS0mu07Qyw1/RX8zW98Ax7zdOCLIJcFdhrFpizetmXYa/Jbs77R18Q
e02PxV2ZbwmvyVste763EntN3rr9nItlsNdc82q+QX8I9po9kZsn7GSx11xR
cPDD2A3sNe+ahyuuccJe0zFfy+4WA3tNqY2hTldtsNe8VGlo5yGLvWaG3tlX
HAex1+QM5Pfs/YK95sGFnycUCK9ZsuPkGm/Ca/b25/4u5sdes/HmeFVOMPaa
ig6KwdQv2GvuXLyr614L9poCvR3hY8WE13SxjpbiPv2v13Rk3R30TQZ7zRNX
TW5dWI69Zj5vzw7+5dhr8v/6dlTSCXvNw3Evv8t7Y6+ZtOScJnU19prh82r9
mo9gr3lDfjSsjPCaL0TWVcwLxF5T4Uovfewu9pqSGkt6TBdhrynwYWe62Qns
NavlLB/tXoC9pqPS2DuVIuw164/pPl+rhr2msfh6/4t/sNfsWxSvXHgUe02V
pac36nNir8kWxrJObh72mld3Lrz7Kgp7TV3Lj8HrR7DXTNv9JqpjFfaaX41e
nG4wwV7zrdPsjf6E12zfm8oxZoS9pmeW9roNhNe8Jeyl6kt4zc7SzO0pDdhr
cqy/Uk0fwl5T6CSnPN897DXpdg9YKITXBEnPmCPbsNfUDqZI2Z/DXtP8fmzr
RXHsNfnbct6VP8ZeM8ye48scc+w1nasVnx4hvCbzpfoTvXTsNQd2vnKrqcde
Uy3GstS/D3vNHZxCV2UIryln67xWkfCayjJrbmUSXjNrVVO2MhN7zezox3VU
wmsuu8gyT4nwmuu0P0oMCWKvub17uagv4TUtDprxGxFeM7m/vyGZ8JrRFRyX
jRdhr0lr1BByjMFeU7F73WmeFuw1H1iKBkSexF5T6cvt1aTX/OQne2NcGHtN
1YfpcwpWYK8p/WT9rC5x7DWFjepvrKJgr8lXP4s9KgZ7zUoXSZuYdOw15TQH
V58mvKaF03rVa4TXzPfxzHUhveay8Y48wmuea0x4+ZDwmjHBRSzjhNe8o8Xu
eJXwmkUljyxHCK+pfUxr3cW92GvePyroziC85iWh2HHFl9hr6mzq6q6hYK85
YnJIWvQd9pqeDT61Vb+w19yd+7nlbTj2mhImpjrZ6dhrXh4/mimhgb3mYcm5
rxlvsdeU7NsTcWYj9ppSylvCdQew1zy1OHS/JuE1za9tkBn6hL1maualOdYe
2Gt6C4b1sazAXtM9toS11Al7TRfxhYKf+bHX/COp4Ci9DntN6a9OimKzsdds
uvhxn6cp9ppbBHvF1jGx17ye71t/vxx7zbw3L4ZyCa/J1nJa/OlW7DXFFjap
tS/EXvP5obbi3k7sNe2DEqvKM7HX5H0mUir2EHvNJgvOMwxv7DW/0WOWLYzC
XrP1hdv3I+3Ya7pJZojNDcZec//Rw//kPsNec9eae9ZyhNc0olKcNM2w17zd
//v5ZhbKv17zq/ZywxJ97DV7Fru5jhJes3n2Qbd+Yew1Te2sb/PQsNfkPyjw
KbMNe82BW4bWFUew1xTh9GE/RXjNPfOOdNwNxF5TRuW8Ipcs9pptNxXtr7hi
rykb6nl2tjf2mkVPdxyUsMFe08Kq6o4u4TXPh5snWqhjrxlY9ENeRR17zTDT
Cy9fcGGvGexo6G4YhL1meirlvsUc7DWZ1cGyX8Ww1yxXu+Yj9wB7zY/CbBV5
wdhrZtB05nJdx17ztc1QlG4R9pr/FP7ZtiwAe01V2Z5iOuE1/b9fCrESwl4z
NiTPWuQg9po2cfZP1hFec1OYyrdhJew19R9312QTXjPmQapeFOE1O72eyIUR
XjMqcMfcoT3Ya9I+h13lJ7zm9nz3pe8Jr3knQ9QilvCaD58termWgb0mZ1rS
AzEf7DX3BXRIRrNjr3ki8MqvOS+w19w4sEZtL+E1eWWPu54hvKaMp5KKlAn2
mhzJS7bGa2GvyVheqKbVir2mgLfm3gAK9ppfnO/YiBFesyi0WXYV4TUFk7dt
esiPveZKp7rPV9djr1lWsvGK51XsNUOeNslovsBek/vr93MVx7HXPGcElsXp
2Gt6hjkVRMVjrzl8qvFM4GLsNfkiKmmp57HXFP794E6eMuE13VIWN0oSXvNw
mpBELcu/XvPwi+DTbwOw14ySufzr5HD6v16zcX+fhW8c9ppDtWxMzSPYa/Z8
3nd42Ax7zege7vnyhNdktTRS+SyNvWZx5C6aQhn2mhpef6QFjmKvWdvyIGpB
Ivaas0QiDU0OYq+579lI771g7DXNGu+puW3BXjNKffaJQ2+w18xkFUl6EYO9
ZpKuzJZPbJ3wP2jx25o=
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwN02PDFgYAAMAnvNm2bbu1bHurLdu2lrZs27Zt27Zt1+7D/YRL2qBtlTbB
AoHAtOCBwHRmMJNZzGYOc5nHfBawkEUsZglLWcZyVrCSVaxmDWtZx3o2sJFN
bGYLW9nGdnawk13sZg972cd+DnCQQxzmCEc5xnFOcJJTnOYMZznHeS5wkUtc
5gpXucZ1bnCTW9zmDne5x30e8JBHPOYJT3nGc17wkle85g1vecd7PvCRT3zm
C1/5xnd+8JNfBEIEAsEITghCEkQoQhOGsIQjPBGISCQiE4WoRCM6MYhJLGIT
h7jEIz4JSEgiEpOEpCQjOSlISSpSk4a0pCM9GchIJjKThaxkIzs5yEkucpOH
vOQjPwUoyG8U4ncKU4SiFKM4JShJKUpThrKUozwVqEglKlOFqlSjOjWoSS1q
8wd/Uoe6/MXf1KM+DWhIIxrThKY0ozktaEkrWtOGtrSjPR3oSCc604WudKM7
PehJL3rTh770oz8D+IeBDGIwQxjKv/zHMIYzgpGMYjRjGMs4xjOBiUxiMlOY
yjSmM4OZzGI2c5jLPOazgIUsYjFLWMoylrOClaxiNWtYyzrWs4GNbGIzW9jK
Nrazg53sYjd72Ms+9nOAgxziMEc4yjGOc4KTnOI0ZzjLOc5zgYtc4jJXuMo1
rnODm9ziNne4yz3u84CHPOIxT3jKM57zgpe84jVveMs73vOBj3ziM1/4yje+
84Of/CIQ0n+CE4KQBBGK0IQhLOEITwQiEonIRCEq0YhODGISi9jEIS7xiE8C
EpKIxCQhKclITgpSkorUpCEt6UhPBjKSicxkISvZyE4OcpKL3OQhL/nITwEK
8huF+J3CFKEoxShOCUpSitKUoSzlKE8FKlKJylShKtWoTg1qUova/MGf1KEu
f/E39ahPAxrSiMY0oSnNaE4LWtKK1rShLe1oTwc60onOdKEr3ehOD3rSi970
oS/96M8A/mEggxjMEIbyL/8xjOGMYCSjGM0YxjKO8UxgIpOYzBSmMo3pzGAm
s5jNHOYyj/ksYCGLWMwSlrKM5axgJatYzRrWso71bGAjm9jMFrayje3sYCe7
2M0e9rKP/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN69zgJre4
zR3uco/7POAhj3jME57yjOe84CWveM0b3vKO93zgI5/4zBe+8o3v/OAnvwgE
+U9wQhCSIEIRmjCEJRzhiUBEIhGZKEQlGtGJQUxiEZs4xCUe8UlAQhKRmCQk
JRnJSUFKUpGaNKQlHenJQEYykZksZCUb2clBTnLxP0oyYE4=
       "]]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwl2EMQGNoOANDatm3bfbXdV9u2bdu2X23btm3b7j+dvziTmbvLIrlJEjZo
W7FNwAABAmQLGiDA3xiIwATBU4BgBCcEIQlFaMIQlnCEJwIRiURkohCVaEQn
BjGJRWziEJd4xCcBCUlEYpKQlGQkJwUpSUVq0pCWdKQnAxnJRGaykPVvXmQn
BznJRW7ykJd/yEd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkX+pRGWqUJVq
VKcGNalFbepQl3rUpwENaURjmtCUZjSnBS1pRWva0JZ2tKcDHelEZ7rQlW50
pwc96UVv+tCXfvRnAAMZxGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxn
BjOZxWzmMJd5zGcBC1nEYpawlGX8x3JWsJJVrGYNa1nHejawkU1sZgtb2cZ2
drCTXexmD3vZx34OcJBDHOYIRznGcU5wklOc5gxnOcd5LnCRS1zmCle5xnVu
cJNb3OYOd7nHfR7wkEc85glPecZzXvCSV7zmDW95x3s+8JFPfOYLX/nGd37w
k1/85g9/iz8ggQhMEIISjOCEICShCE0YwhKO8EQgIpGITBSiEo3oxCAmsYhN
HOISj/gkICGJSEwSkpKM5KQgJalITRrSko70ZCAjmchMFrKSjezkICe5yE0e
8vIP+chPAQpSiMIUoSjFKE4JSlKK0pShLOUoTwUq8i+VqEwVqlKN6tSgJrWo
TR3qUo/6NKAhjWhME5rSjOa0oCWtaM3f5t2WdrSnAx3pRGe60JVudKcHPelF
b/rQl370ZwADGcRghjCUYQxnBCMZxWjGMJZxjGcCE5nEZKYwlWlMZwYzmcVs
5jCXecxnAQtZxGKWsJRl/MdyVrCSVaxmDWtZx3o2sJFNbGYLW9nGdnawk13s
Zg972cd+DnCQQxzmCEc5xnFOcJJTnOYMZznHeS5wkUtc5gpXucZ1bnCTW9zm
Dne5x30e8JBHPOYJT3nGc17wkle85g1vecd7PvCRT3zmC1/5xnd+8JNf/OYP
fz/+gAQiMEEISjCCE4KQhCI0YQhLOMITgYhEIjJRiEo0ohODmMQiNnGISzzi
k4CEJCIxSUhKMpKTgpSkIjVpSEs60pOBjGQiM1nISjayk4Oc5CI3ecjLP+Qj
PwUoSCEKU4SiFKM4JShJKUpThrKUozwVqMi/VKIyVahKNapTg5rUojZ1qEs9
6tOAhjSiMU1oSjOa04KWtKI1bWhLO9rTgY50ojNd6Eo3utODnvSiN33oSz/6
M4CBDGIwQxjKMIYzgpGMYjRjGMs4xjOBiUxiMlOYyjSmM4OZzGI2c5jLPOaz
gIUsYjFLWMoy/mM5K1jJKlazhrWsYz0b2MgmNrOFrWxjOzvYyS52s4e97GM/
BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4yCUuc4WrXOM6N7jJLW5zh7vc4z4P
eMgjHvOEpzzjOS94ySte84a3vOM9H/jIJz7zha984zs/+MkvfvOHv0N/QAIR
mCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7xSUBCEpGY
JCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOTlH/KRnwIUpBCF
KUJRilGcEpSkFKUpQ1nKUZ4KVORfKlGZKlSlGtWpQU1qUZs61KUe9WlAQxrR
mCY0pRnNaUFLWtGaNrSlHe3pQEc60ZkudKUb3elBT3rRmz70pR/9GcBABjGY
IQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZgl
LGUZ/7GcFaxkFatZw1rWsZ4NbGQTm9nCVraxnR3sZBe72cNe9rGfAxzkEIc5
wlGOcZwTnOQUpznDWc5xngtc5BKXucJVrnGdG9zkFre5w13ucZ8HPOQRj3nC
U57xnBe85BWvecNb3vGeD3zkE5/5wle+8Z0f/OQXv/nD34U/IIEITBCCEozg
hCAkoQhNGMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSk
ICWpSE0a0pKO9GQgI5nITBayko3s5CAnuchNHvLyD/nITwEKUojCFKEoxShO
CUpSitKUoSzlKE8FKvIvlahMFapSjerUoCa1qE0d6lKP+jSgIY1oTBOa0ozm
tKAlrWhNG9rSjvZ0oCOd6EwXutKN7vSgJ73oTR/60o/+DGAggxjMEIYyjOGM
YCSjGM0YxjKO8UxgIpOYzBSmMo3pzGAms5jNHOYyj/ksYCGLWMwSlrKM/1jO
ClayitWsYS3rWM8GNrKJzWxhK9vYzg52sovd7GEv+9jPAQ5yiMMc4SjHOM4J
TnKK05zhLOc4zwUuconLXOEq17jODW5yi9vc4S73uM8DHvKIxzzhKc94zgte
8orXvOEt73jPBz7yic984Svf+M4PfvKL3/zh77EvIIEITBCCEozghCAkoQhN
GMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a
0pKO9GQgI5nITBayBv3/XfN/2piQbQ==
       "]]}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 1.998}, {0., 0.9999999999999997}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.499251757853306*^9, 3.499251799691785*^9}, 
   3.499251941298745*^9},
 CellLabel->"Out[70]=",
 CellID->572022602],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxdmnlcTfn/xw9CIm4oRbgRZcstyRaOZUxZry2R5dqSiGuPJh3yJfu1Zz/D
DCEmewjHkhpirhiydqNGtlxLpqy/99t9nT9+4w/38fT+rO/t8/58Do8xUweM
LysIwlb6i39tf6ydbb9ZgfgH0faTCbYHXwZrxP/fvuZ/2PU/7P4f1oIVcAMb
Sx/TbOxpY4vvWRs3tnH6WLD3D1Y81oCb/mBjcCq4+Q/WlX8E9vnBeU++gnU/
uPBr7XM29mX2zkpuDfZjrmnfqx+4FfPaAb+MA/sTSzW7zY8Gt2Z5/8lPl4ED
iA3p4QFbwW2INW3Pz9oHbksc3Sfc8QS4HbE1ST50AdyeuDCsfKur4A7Ey5Tv
926CA4l1l7Na3AF3JPaZtOF4DrgT8f2mix7dBXcmbv/Ef2Q2WCTWh5Tdf97G
EnPS+4rHUjvZ5F2I7f3cjty2scRcdqH+1WPIuxJ/dIy4nQs5s/vdsy9uQd6N
2Lj+sPEoxmdOC9C/e4L5u4uCtGvmrFVvIWfeuS750EfIf6L2b+LKTwdLzN7u
vfa+gbwHcXF+XK2/ICcWA4vez8zH/D+LgjKk7GD3j1gfsRAR95fpM+RBNJ9x
flzbEsiJhT8/2bd7Dnkwcdv4Jz1uYHxiqXDFuaPvMX9Pkk/aUdXxG+TEyuRy
d/75Dnkvan8tcu3OUsiJxVNlOnV6DXlv6n+7VlL+dciZl8ePFDIxfx9iu/Ve
ZjPWx6zUaB5zGvK+rM8DN/zgTxJz5u769XdD3o9477IyRx6iP7ElL//eUyvk
epIXZX21L7WxSCx+ddi37BPaszz9+S9n3tlYYdYc3ntIXV9/4t6zNnzHfkRi
ybFFtegvWA+x2GzM1GfQh0JsCay1WleC/Q+g9jMGisPgDyKxcMh0LyoH8xMr
UsVWaa8xP8vDFjy+8hLzD6T+46ULfeGfIrHwxf/NPMSDxPLDI55f+wfzE4vd
7w82WjD/IGp/baVuKvYjEov7Fu5q8RbzE1vi1v1khL8og9i+71YavmL+wTT+
zY/TuvyL/sTCgbc++7A+ibnt1NtvH6E/c2zwwLUW9A8h9p90PrwI/Zk3T73Z
UfVXYmlD7sykYvRn+bHrbmIe+g8hbjkwu3cR9Ecs7Rg9a5ndeVt/Ym1E2KON
VWysEFvD2rd87WBjIZT2N2Jkru9X9CcWb7u76J5gfmKjsWCUT0XbuaAQp+hi
k//S4JwYSvN/GrWsVzUbi8RSuLl7nmBjieVZkdfb5EL/xGKTuQP/rID5h4mC
3Mcjo4fGxiLzjd9nV6yK9RMbu+7I9SqD9RMLgS1dy8jYfxhxcZWnm75Bf8Ta
tY0Xl1TA/Mwpp+fkl8f6uf21LVPmfUH/4cT/3qu6C/YQmQOioobmwX+Yj4WX
ZiM/Kcx3xeYb3sF/RhAPfvAx6gX0x+xd/u+/kV8l5o4fVx/Khv2YK8+vX0n1
35HEMRP3xn3A/MzzLxcchD9JxFJU7QkPIVdYvsg47U0B+o8iFrxcTDgPRGJp
WvjoKR8wP/Oos4dXID8p3L7QI7sF7C0YiOPdG61C/GoNHI/WoPnwL5HYUvHp
9kTY08DyJo6j0uyhX2Lx0phmdyrZWObxbmWvf1QO+ub2o6a+7vfeNp6F5bqn
jotTMP9o4tbK8uKXmJ/5rIvrESv2wzx1TzP9MxsbmO0869nfwv6YvYsqBJ+z
scwcvavdapx3CvMX39FnEB8W5mrCqnzkY2EMrd939p+9BZt/aYmlrmkOg8Ei
84PgtuM+YX5ipeqpP5ZhfRKx4Lb8Tsh9zM8cMbhk4yHYi/lEuaQLyE8W5kte
MS/vwX5jWR/D4lbesbGW+VVpxv5r0D9zaN+YjwdtbGA2zPR7sxLzM4+rL5su
2uQy8yN5tA/8QyFWehyNG4vzzUJs+Zx8oBT2EcaR/KcTverDflpiKX5XQDri
XWSu7jB0EvKfgVjo6bTdC/EssbxZQkcve5u+ZB7Pw8VDqIl4Jdbl7JLWu9jY
Qmz/Lr3SpuqI//GiYIpwf1VcFvofz/61tueKm9g/saZ49ftTZeB/xNrNtXul
IZ4lbj/UsmA01icTC99GXdJmwP7EYlr1jetw/lh4vjpW5/lq/gkXBfPmUn/H
cpifWNbKnrGq/xFLBR2PrUH+NoRzfqmXIyIfS8RK+uKHJvi3TCz8GRsyEueX
wvIJviv2I59YmJ28iiqo5/8EGv/7nnHp8Fctc6Cu3yzkB5HYGuOuvaLun1h5
d8/HC/aSiMWqjtdeOCD+iIXjN49ORHwqzJ0r/OoCfVl4/N+mOZtV+0fQeC7+
1zbbwf7EonA8OQgsEgsVs1t8Qr40MGvTHtVF/SExd/51xRnYTya2HD1w9THs
qxDL7Vo+cHCF/Xm+c2+HVII/CBOJ5+94pFSC/omFoIyZAw5j/8wzqsx/hv0Y
iDXu1Z+KNbB/Ymlv1SJLdeyfxwv41vUc9KOwfPx3j0jkTwuPl5hXacIp6D+S
2DjuRjHqZS2zq3PT1VcxP3PMyXe93mD/kWyfwO0K6iGJ5VkPKzqj/pWZHwxz
rV8I/2M2xDz8iHrIQqzUUgqDkF+ESST/OH1ZWDHmZw695NcR+U1ktmYEbEc9
bmAuClm06RXij1hyK1haCv3JxMooytDQt0Js8Dl24GI96J9YF5O3zVoH808W
Bb2x1ZbFqA+0xPKlWlV2q/Ugsfl6WINOtaF/YtPen8+NawD9E2tyN4qztNA/
seg4ptaDqtA/s8ekLvbwDwuPr7gv2Iv1CFG0/g7dL0V4Yn5ijVOJ+YYH8i9x
akz9JVOdbGwgFtbXr90J65OIjU9NfguxPpnbr4n7tyrWpxBbDFecRmB9FmL5
3ZiyVviLMIXGi5h93i4d+ZdY2pZdtk81zE+sbVJOme6G+ZlvxbkNh/4kYsu3
2Av58GeZ2Lp+YdsuqF8Ubn/2W8fdqv15vl5dvsea4X9TOf7HuxzHfUVLLOw6
U2M46nORWBm9aOEc1KMGYu3s0QFD1PqUWTdm63H4o0xsqfLMxw71g8L9P9br
OQj1kYXYuDE7O1mNfyPZ8/tVv8fI9xpicfCI3F+QT7RGPj/6trsD1hEbNK5+
QYgvkVgSn5xqjf56bn8wxqML6i8Dj7fipNYNciO3b3Xwwkq1fmD5hmoFSZCb
mEc5tHBEvpOJ6YITakY+TWH+J2FSL8SPwuOV77YoDf5hZvYNnx5RC/7GPM3l
jgPsYyXWurtOvoB4EabReEMzCyo/sI2vIZZ3Gnelor7VEotrmp7ZCf/SEUsX
Oq1fUQf75/57z59phnykZ3n59m+e4zwwsLzvFmNX+L+Rx5u0rSAM65V4PvPj
bQtR/5q4/U/9RT3qM5nbp0ZuXg57pjCPn/DS1wn+TWzodG/ZOmcbm7l/TsH0
r1i/hdezKVIYi/xnZXmjMu6Ncd4J00k+oerLpc421jC/LhcytzbikTh6fc/H
h6A/HbFiNyL8Hs5PkduvmjBTwf1Fz+1X9rS7h/gyEGuvpa1/Whf2J870Hpgx
xgP2JxY8w/KWID5NxOLT5JsZbrA/z/e2UcR2RxuncPt2FxJ9cD9RWP7h9z2n
sB8zz7fkYOq3GrA/r+9y7NAC7MfK8scDhx6si/3PoPkmhziaEc8a4tRKPad3
hz60xHKLWkfHl8f+iZVX1dbUfIr4ZPnciPAQ3H/0xKEfyrWfoOZLHr/GpkhH
7M/I/T+79Z5QH/vn/mX75B9zxf6JJec7O3dXwf5nsD0npW+GflOYG+17N+g5
zhfmAKfga7ifmJkNRQ6/70e+4fG+xR+4hPrIyvKxQeXKI56FmRzv9XwuYT4N
sdIq4fznsvB/YiE0uvEnvE/pWB42RlO2IuxPrN3yz70E6FvPvM2uqx76MzCP
7WCNhH8bebz89NXt4d8S857spWbUVyZiaXiXBWbUGzLLf6t+eyLWn8Kc2m94
P8SrwvzlfxXu4r5jZv65e+Fe3H8tvL+VI4bEwF+tPP7LslNO4j4kzKL24t6V
Y/+2sYZ5l37aC8SLdhbHQ+NzT5AvdSxvWeVdXeQvkdnD7pYI1nP7r1nFkpr/
WH72yx+RqKeMzD3H1C8P/UrMHTJOnsB+Tcztbty9gfwu/1hf72FH/8b+mavs
cnp5DfZnDli3YwTuf2bmFTH+VTKQ75nfjDXv+gf2Z07rkT8c8SPMJj54821/
1BMaYnHdkCujcX5pieXIpo8KES86Yn12u1E1GsH+xJau8wsfNIb9ibX76MrX
APYnjkh0mFtHtT/P98qlTzvoQyIeV1o9KliNf+KkkkMX2zaC//N48VcK9yNf
pMzm+sn5YZvKyH/Mcb9XD0H9Yia2D3o3szvmtxCn3NQefIP1Wnk9SwI9umkR
/3PIXjU9XxXiPqghdr228KI34lFLLPTo0HCnF+xPrLvZYt7FprA/sb6hGO7l
CfvzeMHBs96r9SqxMleauw3xYSQWG8/Z6AZ9SSzfuPVY76bI/8THtrlF18F6
ZeLCJk7D6+G8SOH2ymi7w+r+eT1JvkWdML+Z2L5GcOCkZsj/xJrezjUUrNdK
bBjkULd+Q8R/NI3n75wvIb9qmG+Mzhyq3oeIhfTn6za4w/7E1kpdDzk1hP2J
dRUjYvOgbz2xoXhu0X74i4HY8uGXB79i/UZi7WjndB/1PZfHP5xZ0Az5zUQs
n3LKD0N8yLyeNpfbD0c8pRBLnQ88OgpWePzZlRpWQP1gZt577sMt1CcWHq9R
cvRU5Gcrz9/xQ5nnav03l9bbbPe+P2pi/8RKwawt6nmuJZYilw+fp9Y/xMKK
sB3N8D4sMmdN2r8V57ue+684vK6Jmv+I5eDcn9tDH0ZiS72WuQ3rw/7Epunt
3nTF+WTi/o0Snhah/pR5/ur/DJqBfJ/CXLGGlwH1kcL97/mXfMd5b2Z5UZlp
F7AfC7HWN+DeYbCVeWngQJO6/3k035qwgfegHw2xENtoZ5Ba/xGLN/Wne8Ee
OpaXnvq2Xn0fYrmuVt0ovM/piS39qr9ainrBQGyd2qJ1Iep5I7G8Y3rubfi3
RJz4W1jCB9T/Ju6/9Gj5MOhLJpas7S6Vh35TWJ7+4XhV9X5HnDo06psJ9ZiZ
51M+/yvXw/55vRHyPFfUR1Zm78p3HOBvQgzt3y13ySC8h2qYAyfUPame/8Ti
hfSrH+G/OpZnnZJG4vuDSCwfDfC7Bn3pia39bzWZgPrFwO3jtLsCUQ8YY/h8
W5C+AvqWiIXQrw9dkm3jmVjueyXGqt7nfoy/p3Qc8nEKy6++vvAF3x8UXl/+
6sV50IeZ2z+c0H0O6i0Lsc71u1Ma8qeV5ROdo+djPcIvNN5dZ3kuzjsNc8oI
/0Z4v9ES6/xzV81BvOuISypu2V0B+UskNo4/bp4B++qJXcsPXL9Vva8RCyf7
FsU9sK3XyNw08/tz9f7MXHj35prL2D9xSl6e/WnYQyZO+FI9bB7usynEmYn1
enTFfUzh9S3VDclAPWImVl4XVPoF+ddCvD5+8JwC3AetxN55m3NvIR8KsaS/
AM/cimANsaH7tvbOOI+0xELbO5Olc7b16oi1u9pIxYhfMZbvs8Fat2bYP3Pu
2fM5LbB/YmPf+rdae8P/iV39Lp1zQbxLxNJWb0MW3otNvJ7ts7clq+8ZxCX/
m7UmAPZMITZZB1VvD/9WuP/0zpphOK/MvN74w4Y6uH9bYjl/ftueifuIlduH
nK5ZW/1+NZ/zw1d5aWX4P7H0ZrD3PNX/iTMd5MHhWK+O2Hu3U001X4nEoqd/
aUW1/pvP7w9/O7ZEPWoglgst/8uAvxuJdQMTpVXq+wFxQs11OQXQv4k48Whc
wHwf7J/7Bzw7Ytcc+yfWXLnQQ8H5pfB67xT/+gLnl5nXEzFoc0e8R1p4f18r
tPsE/7QSm0rD0j81wfkfR/0TFvW61xz7J7Y07jHLhPNYSzwzYHpjd+QnHbGr
z/IcHfKbyP0vrh47oMC2Xz2xbtnn3a7Qv4FYv7B/wxnu2D9xVkpcovo+IRHL
gd2jnoBNxJnDU7fWRbzKxKL2ZZY/8lsKsfZycjn1/UJh+afJIZHq+cfreTAr
T32vsxALpcW7T+D918p85ZXxX7wH0OVdEDY5NryD+taeWLJr4eyH+kzD8gyv
59PR35X5dH9hI/arJVb6to866mjThzexPKVDgXrf0hHrF7k07wr9tyU2D/i6
p5b6vkNsMLh5XEd8B/H4IQez7NTzhMe3Dq28HOsLZVY+7asKfzcQaw/EPZAR
HxHEov3Jyd8gNzIHnfXzRn6M5vG3lG51xvdGibn0Z1cn+H8Cr3+p57ROyF8m
1of8wNgH+SiR+Y8TIX0RPzL33/lHm8X4fpTEXJzh+x33wxTmbqe99+N9L5X7
a3OqDkO8KMRJQ1P2ZqEezSSOOHbn4ln4m5n4w66RdT2Qf3N4P0tGzPNX3zd4
fGFK3aRWtvELef3rArefwP6txKH967z4gHq6hDh63N3SUWr+W0DxdHJuRIUm
sD+x4eiOdh6ILw2x9uYATWUXG7sSC5aRUQF4f9Mu4PdkrX0Z1HPexMrCqGIR
8afj9pKT5jfU5225vbJ/Ti70LXL7mifnPMN5F0QsXp3QfhtYz/Je04vGoH8o
ywO7TNap5wuP53n9SSTyVQSvv0LlbC38z0hs/XWx1g/vjdHE9of3368DfUu8
v0Fruj2CPIH7Lx1XYzbOFxOx5acp1Vbh/pLI8zlNDIzC92uZ1+dVvnDjM9if
5a9j08p8h/1ZnrZobRvcX1NZH/N6/9vgOu6vLPdc39zus228TGJjaOrhn9Xz
jFiu3Gd5G9TjOTx+g2lxd/A90UJcom9bwwn1aiGvP604chHsZyVO+Ww30xX3
gRIef+vEz7VbwP4Lyf7tO2QX4H5jT2xJqv81AP6jIZYivEfm4/uXK/OXkH3N
Ue9rifVH5nwoxvnnTew97kq9TJx/OuLEs7c8vbxgf+6fsTJUQn0hEgvN5bgG
iO8g4tDNp48HIP/peT1rSgcFY32hxFqt35l58GcDs+TjXYJ6K4LH83ce7YH3
VCPLF62JmorvEdE8/0P5gBPqS4nYWNTzSgLsncDtnWrMVVBvmnj+P28lv0T+
SCQ2V/WNba2+dxNHv31/vz/uX0nEJrtb402Qp/B8nWau8Md9JZVY9vu2Lln9
PkKss/t6qQr0k8n2KK12aZsP7M/jz+47qgDnUw7xF8up4MvIn5Yf+oucnX8S
8U+cGq7ZlK7WO8SXt2Y3uamD/Ylz/hojNfGH/ePJfj4bQo/5wf7EFs3MiyPU
eohYiYprfwT1syuxlP068b76vY7Yeirv/EbEkzexeOZGmQzUh7p4/v4X/vYn
1f7E2maXB2xR7488n9tvxU/x/hZEbHji0z8e8abn+XM8etzHe1EosdD3tG8d
fC8zMFcYaZ+P7y8RzGLrkEj8fxEjr/dvp2Qr3tOjWf59sHc3fM+RmEct7Dob
30sTmFeUvvW9gPsoc9NFvzV+apsvkcfr9+m5y7+If5bnZk6uC30ksfz9sHkl
eG9KYe7YfW095MNU1k/ygCVjEc8Ky4eX0arfAzOZd7Qx/4n3XjOPX26Pw1C8
9+awvhNmasahHrCwfPwL+9rwt0LWV2HCwjTUG1Ziuek1vQH3wxJu7z9y0AF8
jxQW8fffllv3IH/aE2sipQEf4F8aYpMS4BmN88iV2w/7FjtUjf9F/N53Nr4/
7OdNbL1891RNnG86YkuZ1VOqIl+3ZbmuJL6aWj/xeO8CNv+BeAwi1p2JeVEb
/qQnFgwdtx1B+1DmGoOCZ13B+zpx27FuZfpg/xHEJY+aRr5A/Wgk9q+Ts8Sh
Fc5/4pTbQxo5+qL+Yt5d6YlaTybw+AmT+unxPchEbAwIGxON9SQSRwzc/+Q9
/Flm/XRuWD0c/pxELPVM7/oW748pLHf12DEH+TSV+w/I+vQY563C+rtda1wp
1ptJrG91prUn8rWZud7p2Y+QD3NYX73jrRGazv8HKRANOQ==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.499251757853306*^9, 3.499251799691785*^9}, 
   3.499251941428756*^9},
 CellLabel->"Out[71]=",
 CellID->1080142000]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["PostFunction", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.49925181005543*^9, 3.499251810055453*^9}},
 CellID->1295379749],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"CoherentClusterEvolution", "[", 
    RowBox[{"2", ",", "exampleCoord", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{
     "$CPMGTimingList", "\[LeftDoubleBracket]", "10", 
      "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", 
     RowBox[{"PostFunction", "\[Rule]", "Re"}]}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499251993491674*^9, 3.49925200165829*^9}},
 CellLabel->"In[78]:=",
 CellID->433682755],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxFmnlczNv/x7Nd4Xtt2XWzE8qaQvEiW8q1L9l3ImRJdtceIYQsXVurfYlw
Q6goCUX73izNPp+amq3Zfp+ZOcdv/uDxeczM+ZzPOe/36/l6nanHqoDZaxva
2NhEsP+Y/6cvlcn8YlB/cOPbwIt+yB3SqP7/r3cjenz7p0b22qN8xtkrW47A
Njmnc93v909Cc/75+iz2+rXDccms16H4sOJD8rnfnw9D66e9ds9nr7sOLu39
x+HLCDt+7s/1v79/FdEaXdMf7HXhd/UcbkwEinZfe8f8Hu8mHBuqJIuMDKa5
nRq/gn8bi84Jh+zX0vEjETpvjmuTGgYDgzuwQ0Rhz/aVBk8BvV8MbLolj2lS
yaB5ftTWMc3j0K5Z9eThXHr/uwgc2Q635QzEfYfaPrS/j9n7/pq/RU/n8wCL
5PGpbdn7fwlKutVl8CNURAZ0yuPQ+T3GxqBmWRF3GMxlJ5/a/SmutusxeoYn
ne9TlLUJHv+xQo6JpzcJdPeeYVqIY8f70XIy/3gMk527+eCJHMMtr+fo6Fw/
ZpItfZ7nGO10s2r4GQa9irXsjF/gVJ+b+7rW0udLgM2U64Un2eexO/oh486k
l9j6SL9lkR193lf4clu7rs06GRpaBnyFisJFtybqxOT5X6O3KOBS675CKH7+
vaq173/It7NVZczkk/VIRNeHDey7FnJQubfd4ymViRi5477cq7aCrM8baGc5
jKkcU47snpYJwvN4xvw7S0rJer3D5jvtbvPii/HRPLvad6jmNej1Nq6QrF8S
2h3563rbpDw83e53Qbb/PepbnIyd8PwnWc8P2P4/sUzo/hUz2dVqe/QDvKon
pY/u+oGs7wd8GHXik6zsLrwsE/yIQ76T58S22knW+yN29wgLVCVcxrgRyxKn
/i8ZoW3j/RqufUfWPxnXBmLQktk/YRkuKxk7V479sXhpBdmPFDiu1iyv+iyA
tXxT0NRnnynnuIzsTwpsdzVufZytx37m5VqUim0ye8+cNXKyX6mQdvAaWzFb
hG7mx3X4hLxXK75uO8Eh+/cJnADpyJy8AnS0LOgnNJ0/4Ejttp9kPz/Du9Ow
jlNdc9DSOf4GE/cZiV5T25TsLSX7m4aWcQ+Od/Lng53chNOb0sCd24XZligh
+52G7h2Z04/3MzDm7Bb1HZqOntvatE4KpfWfDvcF10LVrlKoHJecS1am40K/
+dGZTBWphy84obp1s+B9JeT7wa7gF9zw7LNxQnEJqY8MiJ611xzOKEZVlrkA
MiDp/vf6UU0rSL1k4N64h801XC4syzfhKzpc9NneYZSQ1M9XHLzjFbuuRoJc
8/RsM/H3Tb+zIYFyUk+ZYHqqFy56zuBbpuWFPH9dAt9E+/EbSsb0+xyWzeBT
d3MFfYNn28DvV8MYUm/fkDj28v5NRxm8C7zYqfH87yh7eDLj6FPav9+xx+fd
jAhWP16kmwf8gUk991xUMgypxx+Q8ENXOI5mwG7uGvfyH/j+OcNTtklG6jML
L27kaPduEmO2ZcAsTPzeomHQlSpSr1l48tbXfn82B9PZ1Rz1IgvSRpXHOk+r
IPWbhTN9DXMq21bA+3/mHctG6l8pE52Pc0g9Z6N1y9Cd8aYqTH5Za8jZnY0W
A8smL2ckpL6z4WE3TXNyMQNPdrCexdm4OSXHxek/htT7T7gMse/94L4UYy0F
8xO1z9y3pHgLSP3/REvX5RMb/KjEKMsC/ETVq1VSk1sp6Yef+CY3MpOWlcEy
XMNfuOsw+3rcci7pj18YtMHT742vCJbyX/MLTWc3GzJqsZz0yy98jClJGKti
YC1f9vuJ/ztR6Uj75xeWJK+deplXhf7m8nPMgX5ljLr/snLSTzmIb7p4anD7
XPSxFHgOesdN7tx7yi/SXznYLZeGVrwoQg/LhuXg4aWHk8vseaTfcuG7ziHc
vaMEf5m3b0YuBo0Y/3fdJqqfuRi3rvF/5/0YdG48n22xXPypupBu111C+jEX
A+Rdb/2cwUN7tpr3tstDsceubHQoJv2ZB+fiL00azf2JNr7mFczDbP9ha1aV
ZJF+zcP1abdHpK3Pg2V7C/Ogv9M4KsC9gvRvPirzRq98ncOHZfnc87HxsHDp
uoti0s/5WHJs5rt7STJYpncjH+vPr+g7dwlD+jsfAtMMUVMJAyvNC7Dujxnt
60203wtw3GNu5VsDA/29GrajC1ieBwcZf/O3AF9vpfTSKRlozPRNLcB+pwUT
JN8YogcF6NRryuyACwzqDOYBCxHSflvYlNUM0YdC1D3uNKTXWgbVcZ993E4V
ooznZN8lgiF6UQjZ/tbhIpa/0lnmBinE+tNJmkMmytsiDEnc7uSVykCoM0+w
CP7GwvGT+jNET4oQ5a/nzFoohxWvRZj5qjj9yy0Z0ZcirAtZsPHXJBks5dy2
GL67j7tN2iojelOM1EtXuPyWcljKJbAY82Kcj5m4cqI/xegZm9tJfpOBdTuK
oTAl1DRn+W/VoxIImn3691Exg1/mxx3F6t6+WzldvBiiTyVwqV4x5w9/OX5Y
7EsJ5MWjTe32yohelcDDbZpvVpQUX81yZCjBS2nceGEjKdGvUizSrXyRdVuC
NB9zx5Xi8bF+X85slRA9K4Vffvb8kBUSpCjNG1KKOpnijHiJhOhbKUZnn7FZ
M0+C9+bRepfBZfzBvsmQEL0rg0cvz+QWnSV4M9VcgWX4b7t01MIqMdG/MgQ2
HLMiIkEMi7yI2Pdf+N8KuiEmeliOxzNjHuxOFMPSvj7luL9hibq+n4ToYznc
bnU6daxOAkt7PC6H5PEf8lXtZEQvy/Fttdxvla+crGcF5mYOKLfZSv1SBTYF
Ck/31dP1rcAg3UvRd1afrXpagZE7kwMc91EeVGB/xroN6utSoq8VCPHc2nbu
TTFZf3a8wcmLzo4UEb1l7+fUeGSsQUj2owJ+tdt2LLQXE/2twINS13cf3ej+
VKDHHU9xyB450eNKHA6LrM4to7yphF+vC/IHMQzR50psbH2kVfhDGdm/SlyU
ZGSvuSwmel0Juxht55gwAdnPSvx1qZfwhpRP9LsSKU5d9/lsqSL7W4m+91uV
NdYJiZ5XIs1t+ZDbh6RkvytR38/95a85VN85uBa5wzsmlyH7z0HfafLjFxxk
RO85qCqKKrRfLyD1wEG/gmVL0m0qiP5zcNW5R6s7KdlItNQHB9HRF33Tbr8n
POAg0OtovW7fc1IvHNjw9/J6Gj8SPnAgF/jauEX+JPXDwb8rB+fPqaa84EKc
vGKnzz4+qScubu6wDQvyFhN+cHFwQ9rcrbtkpL64iD2X/HFYP4bwhIsFW4wH
7v+kPObizaYVUflsvVj5wsXopzuVQlZPrPXHRbav7S9zfrHyhguP5jOdXusp
v7lY/79fc3bIqL/mYtuj1d3v5jC4b5bH1jyog+xdPD4yhEc8bDS6zRiZzOCu
Wd7G8+Dx+svytoXU7/HgHaiPfsbqZ6xZnrbz0OykfeU89v5WXrHvH/mVuYvH
INosL1E8vDrVfqxHHPXzPJx0vrIlcBmDSHP55fDgEp7Wf+EAhvCMB0F19dkj
vRjcNm/vH3wUFezwS/qbIXzj4wF3QoP8ywxumpfPjY9RD7DxD1avrLzjI7Jg
QdtwNr/8a56eHx+nXr6L3FZD+ccHUxZxeh7rF65fM7/4eHZ3RLLTJspDPj6f
mH2nTx8GV83uO4MPm6xOH7Zo5YSPfHxr/PnV9Ro5wieYC5oP/rvoh3uaMYSX
VQg88Xl+qQuDS53MA1YhIWHkpZq1NK9UodH60Q07s34tTGYGRhXyTju2KGX9
npWnVXD22BzgmcHAvBtLzlVh8bPJd77lMYSvVcgIbbo9mH1eazyowu1hp9O/
sPtj5W0V7Pd7hTZj68fSbjVVuLxD3yYoleYjAZK63l/SKp6BpZx7CtjniHaO
vsEQHrM+iX9ma3M2f1nKZY4Ala/qT7Vl/aSVzwLY+y4+NiuYgWU7jgswNbgt
79k1hvBagGUOfj7uLxlY45kA7gFn3zvmUn4L4NqooLsTmz+twwlQ1LZzopee
8lyI6IneWnM9/2PGdSch3F/PLJ1upHwXIr1jpwyG/fwBS8cJsT/lvmqqkfJe
iEUXY1IN7Pf3mdVqr5DNhzfa+hso/4VILG5XEVvHYI9Znh8K8fFw0COTiPoB
IVJcWl6dVsVglwVXQux2dFnwN0P9gRATP3ut+86Ot9MsLy1FaOl0cp2bhvoF
EY4kT9YMf8Vgh7l9IcKCiwNbtGpP/YMIy86NrIxtIMc2c3tsFcFNvVMbfV5K
/IQIHh2muDTUihFgLr87InQcl3A8+6iI+AsR/hSPGe2+TYjN5u39KUKFIjvB
tUJA/Ab7OT9p/0GpAvibl6+xGDOVswZ/kgiI/xAjzn3+ySlthdhgnt4IMZYt
HR/oWi0gfkSMQfl8fZqnAOvXmV9i6HfM5XbN5BN/IkZ+dmjeugVcrHU3C6oY
rfp5J0VeLyd+RYx0dbj9s+d5sOAoneXOUEPD2z4ZxL+I0Wnh00pNsxewyD37
nFsfusaLGp4hfkaCTS/2DHVVxsEipwMlOLwARtHadOJvJAhbOsu/ebtiWOSK
9QVRJb6xAhWf+B0J4p7MCueVSGGRg7MSCNqbLnSto+cbEozd5Jnzta8clnZL
kuBCm8jsR/2FxA9JEPnSSXRoeQUs5czmjv5jfDrdYn27ledS3O0bO3xc9nfC
cym26BzmunXPJTyX4vNCTeb8NZWE51K8jY3Y82iKiPBciqvZLxfE5coJz1kO
m67w6l8whOdSbItt32XRQwnhuRSXMuNyzr/nEZ5L8UndgtfoSAnhuRS6eRNa
2J/MIzyXIrS4y9ho3yLCcxl2fQof8l9zLuG5DDW7/uxl6iAmPJfBadOJUwms
fll5LoNtqrf600OG8FyG4J2vXvuVUX8mg6ph/a4ZIZTnMjTsaTep5aRywnMZ
Dj+p5s2ZUEh4LsOlCzLD/fgiwnMZltxtGXEspoLwXI5Db84/utGHR3guh3t5
0Jl3l/iE53IM8PjaP7MZj/BcjhdLv8Y+CaI8l8PVbuDg3V5FxO/JceJsRGBE
ZQFGWwAsR+mB1XY2qjLCczla2gq2Td7MJzyXw36XS/83mRLCczkaZY948Odd
hvCc5d7L3RVJrWheZqDcpxhZ2JnynEFRxz4eAVIO4Tn7PfsjMfdOFxKeM3B6
y7UfrsghPGcQHqttfm1YEeE5g5PZ6U1aB3EJz1kO+4e/zIkRE54zmNe+4t6e
hZTnDPJuDtyS6kt5ziCDdbBP9ohJfVZjolZ85MJdDuFRNaoDHow+1jqP1Gs1
AloEbvJfmUH4VI13STHlaaqvpH6rYVPstEFenE94VY2lo2yViZu5pJ6r0f5M
acM58WLCr2qIXq+N6jua5oNq2HfZqhSyftHS/kHVGLAhxHGwLfWv1Tgx/UjX
8dF8wrdqhMrvnVh8q4TUfzUOnIx3HdzmB+FdNVZMzn/8t+N/pB+q4Rs92v/P
49cJ/6qxW2qbvM87jPRHNabtfdVv2tyHhIfVyOhw8IB70yTSL9UYffrUibHi
NMLHavTs791ePDaL9A/7/YF2dl375xBe1iDt+aqUsF/5pJ9q4HGod+vm54sJ
P2uQ3GGMh+G/ctJfNbBZ22SY9xQO4WkNtmydnFnbhE/6rQbN+kU831ojIHyt
Af9K9rh/ksWk/2qQ8+QBnveVEd7WwBgcPY1bLCf9WIMZhw80X51G+VuDp+2y
qwVGeh5Ug/Hxtk36vKc8rsEJ6czEf+YypF9r8G/nsPXLbCifa5CZ7nh2cZWc
9G8Nbu/5MayBLeV1DQ7qe0csnk7PW2oQEL43M+o65XcNugbm7pmXS8+fapD4
vKlDmJLyXIEDsusp8Sbq3xUQ7O2/camR8l2BiZ73xw/SUT+vgOyZx8vEesp7
BYInj1icwfLeqgcKyPvLdrY3Uf4rcEJ3Pdyc7636oIB/WUnRDRP1AwrM9m+c
3+b3+bwCyfqtdkN/+wMFIsMnJn1lr615QIHqJzIX6e/zAgUWpx2tvc/O15oP
FPDY+4c6X0f9gwKlDRePbqGh52sKNK5RhXnUUT+hgG1x3pnZrP+06o0Cogll
nubzNqu/UOA8t8e6i9UM0R8FWnWMPjKzlvoNBZ7Epq1PVFM9qsXIiEHvD+up
/6hF91Lnv2JNVJ9qMfpCs48+JupHavHYRTSFx66nVa9qMWV77mNuLfUntViY
VpQ9j80HVv2qxTgRb+ZCMfUrtWhXVvh4oZTmk1qEpgbnuCoY4l9q8TXx7beG
WppXajHA9/yeKgM9H6nFhmYN8gpNNL/U4uDF9goBe231N7WoLVkx/cvvPFOL
sCf3P5r9n9Xv1GLBZi4z7He+qUW9beGAR+z6W/1PLSbf9L6mUFJ9ZN/vHdSE
X0PPX2qRdXTQhBF1VC9rsfKfH5y17PpZ/VEdkto5FzQ20TxUh7yg2Omn+PS8
pg77Y6ter7lC81EdIu0XDVnZnCH+qQ6pO55e7TxbTvJSHY47d/QKiJIRP1WH
qVJX2dmJMpKf6pD9amFsvb+M+Ks6nL/QKOqDvZzkqTrYpHOPObRjYLFHB+sg
6CWe/aaA5it2Pk+FdmPZ/bDYmyt1CCn61vHC/2jeqsOS63cXXV8jI36sDp9e
qM7yWR9kzV/s50f8dMxeICb+rA5Kl85ZDVifZ81jddAevh+gz5IQv1YHl7Cu
U4PrZSSf1cHNMX/vnASG+Lc6jB62ZdbsRJrXlHjy3+FbUWPp+ZQSvI4ROe3W
C0l+UyL+y5yih8s4xN8psbjZ6j16VSHJc0qMj/slL+uWQ/yeEhOLZh2csSyX
5DslHE9xtrzdWEr8nxLFAz4O8szgkbynhDAqp3VKuZj4QSXuHnhkiGXzmzX/
KREaLHQfL2GIP1RiHPfB2gFJMpIHlfDrquxRFCEiflGJsl5XLnCn8kk+VGLy
K+nKT4Ec4h+V6HvzgwO3HYfkRSU2vg1tFdePR/ykEr1CPH3+ZXOPNT8qkTr8
8rLJbyTEXyqxPXh7yK7nNE8q4XysR+oCDT2PU2Hus9X8PwNovlThluTr/IMn
6Xm8CvbdfzXvbBITnqvQOzRx3uYzQsJzFeqaNQrlxVcRnquQ4Rl77tVdPuG5
CooG41bpVvAJz1X4dvLjgcsxfMJzFV77yH8tH15F8qkK29UHmlz5Ts/7VVhZ
218fPk1AeK7C8qQZnzwvCwjPVaisPNs97raA8FwFZ36H7MxAAeG5ChPmt40+
2EdAeK7C8AqXvL65VYTnKsze/8nt7fMqwnMVnovP7+erqwjPVdBIToXLfwgI
z1VoGVe+fOI0EeG5CseDZplSvSWE52q42KxYtW6LjPBcDd97+5ZWOdM8rMbU
oGc9Nujp+ZcaBeIv9ziHaT5Wo+hOzJBfmTLCczU0KRkuklUSwnM1IgKfqO92
ExGeq/Fm6A5nP76A8FyN8vstNE/GCAnP1ahZeTJLZCcmPFej+KtDbKunUsJz
NUbmF6vP6OWE52r4+cZOHWOkPGfHm7L3U8+plOdqlve7Oq8eKSM8V6NLRGDg
zi9iwnM1vollXWvZnGrluRracZ0SV3cWEZ6rYXyqC7Vn/aeV52q0vv7pGs9W
RniuwfedDg+H9qA812Bj/I9/+vzO6+z7zQp4kjWU5xosVpwPa8STEZ5rIFDE
a5NP0d9nNJjW63+TvCdICc81GN/tpmemj4zwXIP52u5N/lDLCc81WHAsadgA
PeW5BjfkDdcm9KA81+D6IcfHilp6/qvB1sVTXm/oLSA818BzzqjxPr4cwnMN
mKX5g+qEZYTnGgxm0v8MCSwnPNfg7fSDrVf35hKea3CTM7rzQF8h4bkGmeuL
asRuMsJzDQoufZyu+kV5zj6P75QTx7wozzVwmnTYj+MgJTzXouDWv7s+NBYS
nmthCnpWO9PIIzzXwmud3c3vQTzCcy1KbU95bLhdRXjOfv9NqM0kfzHhuRZK
h5G9+reRE55rMSFq9e58GeW5Fo5niuN6eFCea+EZVvgta5WU8Jy9f062oPFL
IeG5FhecvS8n/OITnmvhcfxUVbiUR3jOvj/MT8rzqSI81yI4d80Qo4+I8FyL
cXvd/1nF1rOV51qEbNjQaOowynMtOh06F+lmpDzXIjDk2D9Ha+SE51osauzA
bxgiJTxn7z/+wHCPGyLCcy3W5y+P8DJVEZ7XQ53Z6A8X8AnP68Fv1UgZfYZH
eF6P9m04ZV9SeYTn9cgUa4yRl/mE5/VYP9E2ISCqivC8HkEjjQPHRNLzkXok
zZ21dttyIeF5PSZvzvir+3sh4Xk9bA9hmt8LIeF5PWL0Y31C3IXk/KQeDyee
afxyoYDwnP28Z/PCgb2qyHlKPeLV88uesfOz8rweuXfEDrpTXMLzemwsn/0g
o4BDeF6PwJQE6dEuXMLzejwbt6Bv8SUe4Xk94nY7NzV4CAjP2ecZ0upnzjUx
4Xk9Uo845B/7KiM8Z59H3mCMXwrluQ7nbIa1zopkCM91iE752T29m4zwXIdv
ocbp35KFhOc6DJvV8i+bAi7huQ7P9g0dFdm8gvBch+mR/mN9zpcSnutwf3e6
a5O4CsJzHcLW7Zb4t+MTnusQuHJgduYOynMdkoZx+nd7RHmuw7+nFM4XlJTn
7P1rFJ5dj1Ce67AxxOvaz0IB4bkOyjJnh8MxFYTnOtj/mP8ooWcO4bkOVzsO
rCj5M53wXMfqy/rbLvxPhOc6bJeODex9MYvwXIc7q/7qVh9fRHiuw5OruUfF
PbmE5zoYHT634nkLCc/1GJvEST3STEp4rsffsReebBkvJzzXw/XHtuCMv+n5
sR6rVh0JMTykvxfp0T/8dvCrV/Q8WY8S+xuOR4/R34/0WDQitVulTk54rseJ
Z3NW9GhKf0/SgyM+3f3yf1LCcz0etd3yLGyxhPBcj1Lli6Azs8U4b+G5HgER
2fPmKEWE53rMPf3R0H2tGK0sDaxH5VoV58g/9LxKjwq3VgdT5FLCc/Z9n1zZ
i+lywnM99AdOetrMoefVeoT2aXKrsJT+/ZAe2idP8rJN9Pxaj6eVW+ZPYv24
led6DGj5cnzAO3qebcAwr0minXEM4bkBS9sfX9LlIeW5AVGduhV1T6E8N+C5
q1PFxDLKcwO802KavlbQ37cMmOseeq+jgZ5/G3AotuS63ETPxwxw6rvP47GJ
nocbUHPczn6FiZ6XGZB9m7P9uYnmcwP2ftgRZ84zVp4b8PDVqz5vTDSfGzAo
+PSR3ibKcwO8Vr14zzFSnhuQd2XuC0/2fSvPDZjvare1xETzuQF9FNdvm/OU
lecGqDeKZvCMNJ8b0NR2+4yGBprPDaiNrOpfX0/zuRHBn28cCdZSnhuxvaz1
aa2G8tyIMwmcPgO0lOdGOM7DpwwtzedGTMpxFTytp/nciKhMuVeJjuZzI8Zd
3DBynIHmcyPmGDTbr/0+rzdiS5Fzxunf+dyIzPPdV9f8zudGVKxdZfn7PCvP
jdjAdrfhdz43QhJ/NPoRe2097zNi4a6fTq2NNJ8b4TWh40WDluZzIzbHduce
raX53IgVdl6dG8hoPjfCO+j2jwgxzedGjBmHg3sYynMj3qc3uZykpTw3QjjM
wc08HyvPTXi0ekyaREHzuQmcXde6LEml+dwE9dmQtI7baD43odLu66SFtjSf
m+D1OoIz+IGc8NyEo7NjJg09THluwvzwpLurYuSE5yaU3vrycrMd5bkJa7zD
F5bfpPnchK9PviSk1dN8bsITF7Xzpyyaz01YlLPSq6SM/v2KCclR7wIutJIR
npvQfui2/TmHxYTnJrQsPHz95AEB4bkJ2+Ke8zot4hGem/ANMw4OWlVJeG6C
5nX7nt7/lBKem9AkPe10nqSA8NyEUYrDxrScHMJzE3JRti5akoX/Ayg47Yw=

   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.499251997628953*^9, 3.499252002707069*^9}},
 CellLabel->"Out[78]=",
 CellID->345045058]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"CoherentClusterEvolution", "[", 
    RowBox[{"2", ",", "exampleCoord", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "0.0", ",", "0.0"}], "}"}], ",", 
     RowBox[{
     "$CPMGTimingList", "\[LeftDoubleBracket]", "10", 
      "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0", ",", "0.003"}], "}"}], ",", 
     RowBox[{"PostFunction", "\[Rule]", "Im"}]}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499251814178698*^9, 3.499251910600505*^9}, {
  3.49925195174683*^9, 3.499252005545558*^9}},
 CellLabel->"In[79]:=",
 CellID->447958572],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxdmmlgVNX5h28WFkMkCaBEqzAIWurSBNeo93auBTQodoalJn+lnamgGddE
iYoQYYqIC9oGixoRbUAoBJGGJRDwHjqsshMWZZdBiuwQCJAJSSY99/d78+Wf
D7WP59xzzz3L+7znjD2eLhz8TKJhGF/o/3H/+f//rox93in+R8jr/v+bCo+Y
5FHghdZF0zzk++izl8e7HDyRnmyx/D2Ujz6RZFV3e+fUoOq/ga8fX+uw/seo
/8e0Ltavsg72avvXT1De++w5h8+XuRyed6qztXdr/ZAjs75AuSc82WR7X4E3
P2Cogfe9/1DwaDk4PONjaX+Gy9HdsZ7Wbe9eq5v42mW789meiu+bhfrZHQyV
svvrIitlNt63MyNd8f1zUH/OsZ7WyVv6tJ93w1zUz7nGkP58w/6c+dbc8PqK
f16f9S2ez/45S7F/81G+p2u6Gqo7v8ZT6XJk/zW9pL9gw/jpS6ffpBePNVYs
cLmoJDlHsf8LXS7vXH+XdRf+FrH+gXyH3wNe3/vSXarn/gbd48UoH5rhke+r
Ar/alKY6vx3ZOL3/EnD0pWkmv3cp+nv1+e4qEQ2S/5Ryt8xftcs5C5Puti7s
ePzp9PxleP6FmjTF8ViO+puuS7cOj+4y/5HD5PJTaTI+37G/vcLm9pvQQXz/
mzenK46XwvfWN3jVSrd3dYrz58yT+V2B9j4yPKry1dDkMyX/Ac88lyXjGUF7
qUl3K78erU5vg6NvJHgsjm+E7/9ivJOLDq50uXJyQ1/F8Qbf+cBVucq+58/L
B6SuQv3yioWyfsDhWxL6WWiuBlx5IiFH5mM12+88w+TyBXtK2uUozg/4ttv1
+37tDteTa7CevC1emS9w2GqTrbq7n9ttLbjq6tb5A0cKunhUVwzoWr5v1HMm
53MdOWO80/GOhV+em02ubMiS9fw92huZkq105/pOehFsBKvnOZxvsL2wvq8V
3zXqxC191oPfjXtl/sFlFY19rcu9h/191SVw2FffXXE9bAA/fKS7Olvi1SMI
Dv7SkiX7ZSPe17WNx/qlxl0A5MiYCpPrBexZeKPHwvD13cTvuW6RyfVDjl6s
Nn9wu9d+M8ajqsFncT2B7QE/dFdbNuMP9Y/3X+RwfW0Bb7/kU2s97goC2wk9
PLLeWB5+qsJUxf/ITH5iK9bPoDqvxCtwqd05Wy1e7za4zeXF9yfaFtcj2H8+
0VZ6ckc8eGgb+z/6S5Prswb9fa9dPzUYDYKNwTGvrFewvSE12/qDHs37F4Oj
o+NeiQ+sb4fmmI+mujO2HfUXnPcqrmdwTWPLEPXwkrrmXaO2s//NQyyub3Dp
XUa++r1u7Kb9fL5TLEvW+w7295avnd9hwQjXvivrH1yebgy17scAgKMbWnyK
3QMXlTc/YqG5xJ143qv3M/cH2ch5xcTyH0GObKtwuF/Anp/TchWXLzh21PDL
/gFX5sSHqN+4y6/3Ls6Xb5bD/QQOpun+3IwFzvJobKbD/QWOHNT96YEJI391
2Wtxv/3A9vR43OhOnw8cPHrpEfERy6+/Jltdl/yE3mJkY8WnJvejcOFU5xq9
mkd3+ZF8ttTh/hTuFzYz8t0RBHu8ur/cr+DIS3r9YHr3Sv3Brzjcv7uxvsbp
cgzfg2B74rXZFvfzbpmvVxx070vhmM/k/gYPPdY0xMK/N/awfOqHDvc72F/X
7LOaKs7rHc3yIl+1+B2ceV6vp5hr3zXgae8bfokH4JrNLVnqYrPb4F6Op6fc
YXwAly/NzFa1s9c9dt/7LI++XGEyXoAj61Js6/Qgd4OAp7xfP0T8sg/j9cnh
LOt4o9vBffT1yNUm4wm5/JnpDvUKXvxUh1zF+AKO/Pl0loXl3Gm/ywf+2D5f
4s1+7q/N8x0sl2Lh3PkSf8jpkzaZnA6w/9bTj1iMRwdczl15JWDtdD/3fvCo
wYnDFOMT2P7Lmiy1DekLue5KlsSrAxyvoipnkxuOmsHZZoJtMX4dxPp/qz6g
vn/M3XHgORePeS3GM3Dkhpuy1epL7oQc5PweLDUZ38j2Wsf8j9tar58Y/+ct
dRjvwLU31/us7wa4KxB8+z3puRL/wH5/mq0QXk7weSN5jsN4eAjfW9rks7B9
HwMb05Js8TW4emWiX2F7zAfXDMtojZesH/xWSXyP4nuWN7X6HZy+q91QxfEF
G5m/si3G0yjH86JPxpvl5ScXOYyv4Mqfa70Wx5/lRvZDDuMtODsh2S/zwfJo
TYXD+EuOGEtlfsCe5wxbMR4fRv++a/BJPgNev7Y5z2J8Bpf0Thoh8wd2vmrO
k3gNHn0mPlzmE1z5oR4vxm+Xw+fOtBTI/LL+mJhP4jnYM+1ka/6E+j1z2vkl
vv+M/lfWjnc4/+B+v70qZDHeszy7apysB/CwdXr9Mf6D736rZbi1HOuD9Sdc
VWnSB+BpDzUFJN8F++NnfZIvgbskJeVbXD983g6WO/TFEZfDk5t94lfw+MKE
fMmvjnB9hJabXF/k7N+ud+gTcvjjpQ7XGzi1on3Qol/Ame065sv6k/pHVpv0
Dbjom4SgrEdwbp+mPPEPeMSg2HA11w2P6f/leKaucugjstH3c3OOG94eAu9b
lmRb9BN4z4ikoPqXG55eZf3Mj2pM+gocXvLwBnOmG16+JhuNXov+AucU6fUw
w11+u/h8cE2FSZ+BIycu+6xyd3rbHuX4/nuWSb+Bcwsue9VX7vDdx/LyLfMd
+g5cnVmfZ01zuxcC5xQn+SX/BIfGp9pq6ufuH9i+qqNt0Ydsz1g2yyxzs++N
5NDx7xz6UcqPfmx+2tdd0OBoSWNA0Ze/ML7O2mhOyXQbBL94QK8X+pPl0YWL
zY/PuMIQHrDAoU/Bdkq7oHJnY9jfWW5/P9+kX8HvTdHfw+MBOHhth1bfsn5k
20wH2+08OTigUs5Hx9CfF3V8wHK+CTxwk14v9DF4/QvX2RaWyxDwnqfjPsm3
j7G/nZWD6XgHHPz+klfR1ywPvzrN4fEMbO/8wSvnMXB+TMcHNsf6wbc3OBhX
4zjYM7XSGefqOhM8Z0ZqvqLfwbmHmgPWW65uB4DDTRt8ir7n8+lfbzLHuNFq
NNmYP0bO3+CBZxuGW2+64XmelN/4hsN8ALx4mxG03oCuwDNfMYKK+QHY81Qb
W73mhpeOJ/j8b94xmS+Qg7sXOCPd7esFlx7Y45PzBbg2vbOtXnG3RxG435V4
gcV8gs+HewTNQnf5TQdHjjX6LOYX4Dlmit96yZ3eHfL+NfMd5husn9g4XL3g
Dl/ySZTXHN5gMv8Ahy/Ve63n3O7dw/KujXmSj5DLG9aaBc+6f+Cym5sL5bzD
cmPiZPOZB92ASt6g83vmKyfp18Y8BR2tB3vsdvlyniYvPuu1EO4b+HykZZ7D
fOaUy9ded6nAQji97RTfZ/c3md8IT/jCRLgaBra9V/IU8x0p3/gPB+HgI/Di
N2OFivkPy6tf22Viu60AV05tyrOYD7G9zJY8C8v5HNiTovMB+vy05sj0bxKK
LPr8NMe36/cOfQ4ODY6/IOcjcOWd7fLF5+BofVXreQmce07Hc/ocHLlVxzf6
HFz6SPKLFn3O94Vf/8ykz8Hrywzbos/B6Z/p/tLnZzi+favk/Ag+nt1QKOct
cP6I9vnic3CwZ9Rn0edge7ceD/qc7f1X50/0Obj39ObhFn3O8uxHqxz6HNx+
bFu/+Jzl4crlDn1+Fuu5W/IIRZ+f5fwlbZLzm3C/58TnYP/jjQHxObi8QPud
+R74XJ94nvUABAyO1Sbbkv+BIyU6/tHn4NJ+aX7xOd+3Zl1EfH4O8XZVfcCi
z8HPvqXjA30Ojnyg8yP6HJx9TsdL+hzcb3LcJ+dr8JRrWgKKPj/HeNepyqTP
+b4uKX45P4Jfr7sQsOhz1q80t5v0OXjN9KYCWZ+1mK+HEmzxETiyur0t6xV8
/MKV4Yp+Amdnxb2S74OjLed84itw7P0kv+Sn4OCdlwOK/gIb+TO3OFzf5GB0
lYPt/zo5PKk1f+X7vDqe0W8sb4wHJJ+V+vF/yv0POHymg1/uE8Dt9XyI/1i/
9+xtDvcHOWfMIpM+JEf2b5X8t1b8u86kH9n+1oSg7B9w9f/p/IS+PM/9/eAq
h/sJvGZEYlD8CS6vMkKSL4Pz+xshiz7l83ZGhdzXgWsDicWKfgWHv0gOyf4D
//6J5gLxLZ9XOh/lfgR/dWfTSIv+ZXlZcLvJ/Qnes0XnD/Sx9L9+odzHgj9t
ib+h6GeWB8NbHO5f8NPJlwLia3BCD/293M/gygO1PkV/83sHxXwW9ze4bF/b
oMK+NS6w/amrZb+Taw7OFr+7HL5+XHKR7H+Ub3y0wyi5vwMf79MQUIwHfH5u
99UO/Q/270kKWowP4PIfD7We/1k/96Ulcv8DrokaxRbzA5aX7Vjt8DxAHjXZ
kXwBnNurbUjui8BLZhtFivkDeEazfj/jC7jW1yEo9wtgz+GTrecH8PJvrhRI
fsH3RR+f5zD+kO0bVzrMN8DJX3QolvuoOsSry80ByT/A793RJiTnDfAto5NC
FvMR8F3JV/vl/qqO4798g8n8BDxBJfgV4xc4PCZrr9x3sH76gyvlvovs2bbe
Yf4CfmK3Xq+Mb+DIjvZFks+wfm9nj9yPgX+KXB1SzG9Y/z8pQYvxT953aKfc
p4CjgzqGLMZD8L2PJxQp5j9g89+JQYmP4IE9dX+YD4EnKj3fjJfgubc3jJT8
6CL90mevyfMQOfpUjcN8Cdw7WZ//eD5ieWTQtybzJ/CEX8cKLZ6XwOFYol/y
Kdb3fzPV5PkJ3O2dpCLF/Mrl8JHkhFEWz1N8/s0pB02kR2P5fO3KNXK+AtuX
c/eaSG8+A2cUJIxSPG+BI006vjIfQ/v+SHyM3M+jfOyTej8zP5PvubvK4XmM
HMtYLffZZHPpZofnM3Cwx5WA5G8snzP7kMnz2iXG796TJJ8Dv1yiv4/nN3Dm
WX0+Zn7H+pEJU0ye58jGmBKH+R74w0natzzfgW//KCFkMf9j/fIHZpg874HL
J+jvYz4IHrXd8Mv9J9js0dGvmB+Cd/1YN07Og+Cyrto3zBddDqe31fkez4fS
v7+HHeaP4KI07XeeF1letH+uw3wSvPj5xkKL50cZnxcWmcwvpf/3Vzs8T4Jj
E5sKFX1+Gev3t/ExFn1+mfspb6fcx5P9E2vkvAmu/GdiSHwOXvGs3i/0Oesb
eRUmfQ7edJsRFp9LexcqxOdgzxI9/jyfgs9OSSyS/BV86xjtE/qcz9sHF5r0
ufD8SvE5+MCf9HmKPgdHm/V5hj5n+aY2rfdXLkdOddD7mz6X9rqVS/5LDsaX
ynlX+PWFJn3O8bivKWDR5/WIl6uSgnLfBW7fP7HIos/BwRo9XvQ5eNWPzYVy
PgaP6tnFL/dh4PAsfX6mz8FF9c2t95v1HO8nKhz6nGzP+M6hz8HOw/p8RZ+D
PQfrWn/fYf2a4rUmfU4Ot/3EpM/5PX9pCFj0Odh/6YBP7tfAyf/S40efg4dv
jY+06HPwzAwdr+hztl8a+96hz8mR4HQ5n8dYfnaZ+Bx8+eo2JYo+Bxe/reM7
fQ62dur1RZ+De2fEC+W+DjytQudP9Dn4X5O3BxR9Dl5Tp/tPn/P94Sv75fd5
cs7yiEOfkyNjF5g8D5Dt2DK5/wdf7N8yUnwONs+1FIrPWd8Ivi2/14LvXtFU
KD4H51/Q/afPwZnFF99Q9LnL4b88pfMD+pzt7Xl+h0mfg0uH6vySPm/Afl/W
HLDo8wa+32Oa9Dn49L/1++lzlgeHL3Loc3JtfJPcN4DDBQcD4nOXww9PSAjL
790on3NHZ7+cT/h8UTwiPgc7TfE35LwCLknR+4U+Z/3oLx+Iz8FlGTo/pc/B
5ffq9Uifg3O+1vkHfQ5efENGUHwOTn37YqH4nO1n5tY49DnZXrXEpM85HhO0
v7mcWb5Ixyf6/Ar3S2CL+JxsfPK5+BxcXdLQ6nMpv7LRoc/BqZNiBeJzcOTe
5KD4XOoP3iE+B9cujgfE5+Cyb5vGic/BsdVXChTvT/h8eNoChz4HZy9LLrZ4
nwLeM0Sfl+lz1rcD8+T3IHD5rfq8QJ9Lf4Y7Dn0OHpjcUmDR52z/kwy/3L+w
/ceT/RZ9Dg6kNY8Un7M9T2dHfN7ocs3p5KCiz8E/1KW0+hxsPnyhQHzeyP6s
ec2hz8mVSz4Qn0v5s5+a9Dk4sqWlQNHnLoe7/7WhQNHnKE+8X+dL9Lk83/ZV
kz4nPxLYJ/c94KKlsVafg+v6tC0Wn7N+6eQFJn1OjuStlfsg8MRB2p/0OThU
p8ePPif3bxcSn4PTj53yyX0R+Je++jxJn7P99MYNDn3e5PJrkcZx4nOwuVT7
kz4HG6lDj4vPyeXjdpr0OXiYSigRn4OrV1zvl/sml8Obn0sJic9RPrSd9il9
Ds5+eaNP0eds/9NhO+R8Ds6ceFVIlcLn4A2P6vMmfQ6O9qn3qTRs4Cauj0Kf
+Bx8/dwOJeJz8HF1PiA+5/veS9vn0OfkUad2y/kcHFmgz2/0Obh27Aqfos/B
G2N6fOnzZnzf+TbF4nOwEUrc79Dn4N6Fqa3nc7Bzx4Vx4nPwwLmZIfE52Oyo
z1P0OTh/2g1+8Tk4tDMakN+r+b5O7xwQn4NPV+n8lD4H37ruVIH43OVpv3ug
m1/O53x+Tu1+OZ+Dm7ZpP9Pn7N/ebQHxOevbGTvl93BwWayhQHwO7vSxPv/T
5+zvm2khuX/j8/36HTGxj4w45/+zqEmfg5PfaRkpPgf/d3Nqq89Z3/+3qPze
Do4c0uNBn7P8DzN/NulztrdjWavPwdUt+rxEn4M9vdoH5b8PAxflbfXJ+Zzs
0fGJPgdf+2R6SP57HvJDej3wvg9cmrXMJ/f74PDp+VGHPgfndksPKvocXNzQ
KSQ+B38V79p6/8/vCVdtNelz8vGCHXI+Bx/dqftPn7fAryfrC8XnYGNg1WHx
Ofjbg0aR+Jzl9oGD4nPwk8fPF1j0OXjdl6lB8Tm4ZJ/On+lzcDTL47foc/Cj
v7QLWvQ5+HRZ40jxObjwUx1P6XO+P7hok/hc+nNvVH5/IIePvuvQ5+DbV7UN
is+l/ti1Dn0OHnRPS6H8PsFyw54kPpf2mpfI7xUuhztel1AsPkf5Twv1efF/
S+uYRg==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwl1mOXGAYUBNDNxra5sW3b3NjJxrZt27Zttkkbtkkbs43RhkXs3j39cM/8
gjfzgkK6BXcNExAQsCgwICA0RUBYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFUGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGUpR3kqUJFKVKYKValGdWpQk1oEU5s61KUe
9WlAQxrRmCY0pRnNaUFLQmhFa9rQlna0pwMd6URnutCVbnSnBz3pRW/60Jd+
9GcAAxnEYIYwlGEMZwQjGcVoxjCWcYxnAhOZxGSmMJVpTGcGM5nFbOYwl3nM
ZwELWcRilrCUZSxnBStZxWrWsJZ1rGcDG9nEZrawlW1sZwc72cVu9rCXfezn
AAc5xGG+43uOcJQf+JFjHOcEJznFaX7iZ85wll/4lXOc5wIXucRlrnCVa1zn
Bjf5jd+5xW3ucJd73OcBD3nEY/7gT57wlGc85wUv+Yu/+Yd/ecVr3vCWd7zn
Ax/5xGe+8JVvhB5/GAIJSzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCKI1KQhLelITwYykonMZCEr2chODnKSi9zkIS/5yE8BClKI
whShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKLYGpTh7rUoz4NaEgj
GtOEpjSjOS1oSQitaE0b2tKO9nSgI53oTBdCy7sb3elBT3rRmz70pR/9GcBA
BjGYIQxlGMMZwUhGMZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIW
sZglLGUZy1nBSlaxmjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5x
mO/4niMc5Qd+5BjHOcFJTnGan/iZM5zlF37lHOe5wEUucZkrXOUa17nBTX7j
d25xmzvc5R73ecBDHvGYP/iTJzzlGc95wUv+4m/+4V9e8Zo3vOUd7/nARz7x
mS985Ruhwx+GQMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKS
jOSkICWpCCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShK
MYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1CKY2tShLvWoTwMa0ojGNKEp
zWhOC1oSQita04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMYyCAGM4Sh
DGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1gY+P+v+R8D
uTLS
       "]]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{257., Automatic},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.499251818936294*^9, 3.499251827994327*^9}, {
  3.499251865522597*^9, 3.499251913369684*^9}, {3.499251946481964*^9, 
  3.499252006566926*^9}},
 CellLabel->"Out[79]=",
 CellID->1723556385]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{1584, 816},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[29133, 687, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 93890, 1889}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 80, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1326, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1384, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1466, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1534, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1631, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1716, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1800, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1919, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1975, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2041, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2113, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2180, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2252, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2316, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2380, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2446, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2527, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2631, 132, 67, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2701, 135, 695, 17, 117, "Usage",
 CellID->982511436],
Cell[3399, 154, 42, 1, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3478, 160, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3538, 163, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3620, 169, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3706, 172, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3801, 178, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3869, 181, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3955, 187, 97, 2, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[4055, 191, 202, 4, 17, "SeeAlso",
 CellID->929782353],
Cell[4260, 197, 212, 4, 17, "SeeAlso",
 CellID->204869641]
}, Open  ]],
Cell[CellGroupData[{
Cell[4509, 206, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4569, 209, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4652, 215, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[5011, 228, 714, 22, 51, "Input",
 CellID->1164310054],
Cell[CellGroupData[{
Cell[5750, 254, 799, 20, 73, "Input",
 CellID->747121109],
Cell[6552, 276, 228, 6, 26, "Output",
 CellID->1449818308]
}, Open  ]],
Cell[CellGroupData[{
Cell[6817, 287, 592, 16, 73, "Input",
 CellID->1617009137],
Cell[7412, 305, 250, 6, 26, "Output",
 CellID->2022475332]
}, Open  ]],
Cell[CellGroupData[{
Cell[7699, 316, 608, 16, 51, "Input",
 CellID->2000687598],
Cell[8310, 334, 20774, 347, 324, "Output",
 CellID->459456185]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29133, 687, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[29236, 691, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[29364, 696, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[29537, 703, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[29689, 710, 206, 4, 25, "ExampleSubsection",
 CellID->1757724783],
Cell[29898, 716, 656, 18, 73, "Input",
 CellID->201942149],
Cell[30557, 736, 658, 18, 73, "Input",
 CellID->426583994],
Cell[CellGroupData[{
Cell[31240, 758, 780, 19, 73, "Input",
 CellID->938576960],
Cell[32023, 779, 23625, 398, 130, "Output",
 CellID->572022602],
Cell[55651, 1179, 11307, 194, 99, "Output",
 CellID->1080142000]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[67007, 1379, 203, 4, 25, "ExampleSubsection",
 CellID->1295379749],
Cell[CellGroupData[{
Cell[67235, 1387, 797, 20, 73, "Input",
 CellID->433682755],
Cell[68035, 1409, 13245, 226, 128, "Output",
 CellID->345045058]
}, Open  ]],
Cell[CellGroupData[{
Cell[81317, 1640, 846, 21, 73, "Input",
 CellID->447958572],
Cell[82166, 1663, 10578, 183, 129, "Output",
 CellID->1723556385]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[92783, 1851, 131, 3, 34, "ExampleSection",
 CellID->258228157],
Cell[92917, 1856, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[93062, 1861, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[93200, 1866, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[93343, 1871, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
